UUU UUU 
UUU UUU 
UUU UUU 
UU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


UUUUUUUUUUUUUUU 


a4 

=—aH4- 

=—4- 

=—4a4-4 

=H 

=a 
cCccoccocccoereem in 
DS et at pee Bet et pt ed bet Bet he 


mr 
ee 


et te Oe bt Ot bs pe 


At tt St HH St HH A HH 
eccceecece 


a ee) 
AAs at a tt 


**F ILE®*1D* MOUNT IMG 


oo ovvVIyg 
oo oEevVe"uo 
oo ovo oo 
oo oo oo 
oo oo oo 
oo uo oo 
oo oo 
uo oo 
VOVUVGUVENE900 
VIVVVVVUU9U 


“os — 
—— —— 
dd ad Od Ong Bnd Dany Bd Ong Od Ong On Od Oa 
Smad Smad Saad Pama Dm) Omg Pama Ome Bey Sad Oey Pd Em) oo 
— — os 
oe med Oe 
cao 
os 
bebe 
ee 
ee ee ee 
a ee ee een ee ero 
rie 
fae 
ft 
fee fee 
22222222222 222 
222222222 22222 
22a 
zz 


aes | 
8888888888 
ESP LEEEEEEEESE 
== 
seEESESEESEESE 


33 
EE 
sssssssssaaei 


nw MMMM 
nw nn “nw 
nn nn nw 
nn nn own 
nw nn own 
nn nn nw 
nn Mw nn 
NNWM nw 
NNANMM nn 
Cane eakeael 
— akan 
OO et ang Ong Dead Ong Pad mad Pa) Bema Sra) Oat Ome 
OA ee eg Cand ad ad Od nd, So Ba) Od Pe 
me alan! 
Caen kee 
a4 
aad 
+4 
ao 
v4 
—) 
sj4 
sy 
ee ee 
ee 


Oo: 
MEIN 


— 


Oa a a a tk kk a ak tt kt kt a dd a od dd I OOOOOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


bd ad Ps ts 8 


MEW =O ODONAULS WN @OOONOULS WHC 000 


SosoooooooSooSSeoSeooSSS 


=) 
oooo 
Ww 


SOSSS SSO ESSE EEE RECS 


rx 


Se Se Ge Be Se Se Ge Fe Se Se Be Ge Se Se Se Se Ge Ge Se Ge Se Ge FF Ge Sl Ss Gs Ge Ge Se Ge Ge Ge Se Se Se Se Se Ge Ge Se Se Gs Se Se Se Se FH SHS5 S545 S45 Ss Se Sees 


PAA 


HEcseoct9ge 01:06:32 yanott alts 
pete, “Pere tates MAIN = PARSE_COMMAND 
ADDRESSING _MODE EXTERNAL = GENERAL), 
LANGUAGE (at iss3¢ 7 
IDENT = 'v04=000 


BEGIN 


WITIIIIIIIITIIIIIL ILL LLL LiL LLL LLL TLL ili Tiliiiiiiiiiiiiiiiiiiiiiie 


ie 
ie 
ie 
ie 
ie 
ie 
ie 
ie 
ie 
ie 
ie 
'@ 
is 
ie 
ie 
ie 
ie 
'e 
te 
'@ 


VeRRRR REA AAAAAAAAAARAARARAERAAAEREREE RARE AA AAA REAAREARAEEREE 


le¢ 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQ UIPHENT eGORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERV 


THIS SOFTWARE IS ght UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN mie ANCE WITH THE TERMS OF SUCH LICENSE -" ere THE 
INCLUSION OF THE move a gl dd NOTICE. THIS SOFTWARE OR OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
At A al NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SORPORAT Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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i ABSTRACT: 


This module contains the data base and utilities used to acquire the 


T command Line from the CLI parser. 


ENVIRONMENT : 


STAM eT operating system, including privileged system services 
and internal exec routines. 
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V03-014 HHO004 Hai Huang 09-Mar-1984 
Add clases mount support. 

v03-013 wMc0001 Weyoe Cardose 16-Jan-1984 
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v03-012 MCNO141 a del C. Nasr 27-Dec-1983 
Add VALCNVERR message, and eliminate PARSE ERROR routine 
since it is not needed with new CLI interface. 

v03-011 DAS0002 David Solomon 09-Dec-1983 
Fix symbol name that was too long. 

v03-010 DAS0001 bevig Solomon 29-Nov-1983 

Add support for speci fying maximum journal record size 
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v03-009 MCNO138 Maria del C. 21-Nov-1983 
Turn of NEWJOURNAL a Se /NOJOURNAL is specified. 

v03-008 MCNO0137 aria del C. Nasr 12-Jul-1983 
Change to new cut “interface. 

v03-007 LMP0140 L. Mark Pilant 22-Aug-1983 
Add support for alphanumeric UICs. 

v03-006 mMD0188 Dum 7-Jul-1983 10:00 
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Add support for the /COMMENT qualifier. 


$TJ0201 Ste Jeffreys, 04-Feb-1982 
Set the inhibit b t ue e final status code. 


$1TJ0187 Steven T. «tt “Xs 25-Jan-1982 
si MNTSV_MOUNTVER to MNT OMNTVER. 


0172 Steven T. Jeffreys, 08-Jan-1982 
sen SMOUNT interface to use *new* item List format. 


STO Jeffr 04-Jan-1982 
Raea” Support hr the OVERRIDES LOCK, /NOCACHE, /MOUNTVER, 
and /MESSAGE qualifiers. 


$TJ0153 Steven T. Jeffreys, 02-Jan-1981 
Extensive rewrite to ae the SMOUNT system service. 


$TJ0147 Ste 01-Dec-1981 
Fixed TPARSE table” tor YR et : “option. 


$TJ0137 Steven T. Jeffreys, 02-Nov-1981 

Convert the command Line porere oa seperate image. 
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SMOUNT system service to complete the mount. 


$TJ0036 Steven T. Jeffreys, 11-May-1981 
Added support for /ASSIST qualifier. 
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: 161 1 
3 196 § 1 FORWARD ROUTINE 
; 16 1 CAC CT NOVALUE, 
: 164 ... DATACRECK_ACT NOVALUE, 
3: 165 § 1 DENSITY_ACT NOVALUE, 
3 198 1 GET_DEVICE NOVALUE, 
; 16 8 1 GET_LABEL : NOVALUE, 
; 168 : 1 GET $06 NAME : NOVALUE, 
: 169 0 1 INITIALTZE_ACT =: NOVALUE, 
; 170 a: 2 JOURNAL_ACT : NOVALUE, 
: 171 0 § 1 OVERRIDE_ACT : NOVALUE, 
3 176 8 1 OWNER_UIC_ACT =: NOVALUE, 
a.) Sy. 4 1 PARSE QUACIFIER : NOVALUE, 
3; «6174 4 oe PROCESSOR_ACT : NOVALUE, 
s 175 0 $ 1 PROTECTION_ACT : NOVALUE, 
s 176 + 1 MAIN_HANDLER, 
b UILDLL : NOVALUE; 
177 0838 1 BUILB_LIST OVALUE 
; 178 0839 1 
: ho Ose) di 
: 181 bees 1 ! Impure data area. This area contains the MOUNT parameters extracted from 
$ 186 845 1 ! the command Line by the associated parsing routines. 
; 18 0844 1! 
3; «(184 0845 1 !- 
: 185 pane 1 
. ee 
; «188 $Be9 1 DEVICE_COUNT, ! number of devices specified 
3: «6189 0850 1 LABEL_COUNT, ' number of volume Labels specified 4 
: 190 O82) 1 DEVICE_STRING : VECTOR DEVMAK* 3} ' descriptors of device name strings 
: «6191 0 26 1 LABEL_ STRING : VECTOR CLABMAX*2), ! descriptors of volume label strings 
: 138 O88, | ROUT OPTIONS iwi late hee 
: & : . !o 
3 \3e O82 ' MOUNT"FLAGS : BBLOCK (4), ! count option flags for service 
5 138 0837 ! H Value of qualifiers 
3: 198 0859 1 ACCESS ' yalue of /ACCESSED qualifier 
; 199 0860 1 ACP_STRING : BBLOCK CDOSC$C_S_BLN], ! descriptor of ACP device or name string 
: 200 0861 1 BLOCKSZ, ' yalue of /BLOCKSIZE qualifier 
; 201 9a) 1 EXT_CACHE, ' space to allocate for extent cache 
3 4 0865 1 FID CACHE, ! space to allocate for file ID cache 
; 20 864 1 QU0_CACHE ! space to allocate for quota cache 
: 4 865 1 COMMENT _STRING : BBLOCK COSC$C_S_BLN), } descriptor of /COMMENT string 
3 5 1 DENSITY ' value o Ay A. er 
: 06 67 1 EXTENSION i value of /EXTENSION qualifier 
: 20 1 JRNL_QUOT ' value of /JOURNAL=QUOTA keyword 
: 208 869 1 JRNL-EXTEND, i value of /JOURNAL=EXTEND keyword 
; 209 0 1 JRNL_SIZE ! value of /JOURNAL=SIZE keywor 
: 210 {4 1 JRNL RECORD_SIZE, ' value of /JOURNAL=RECORD ze keyword 
: 211 1 1 R_vIC, ' value of /OWNER_UIC qualifier 
: Sig ay, 1 ORECORDSEO i vatue OF TREPORDSY muti tier” 
3 ' valu u 
3 214 ers 1 STRUCT _NAME : BBLOCK COSCS$C_S_BLNJ, ! descriptor o volune set name 
s 29 A 1 ' (value of /BIND qualifier) 
: 1¢ th ' WINDOW, ' value of /WINDOWS qualifier 
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1 ae } GLOBAL ROUTINE PARSE_COMMAND = 
io Be pe 
5 349 FUNCTIONAL DESCRIPTION: 
303 1/ This routine paregs the MOUNT command Line by gating the CLI 
948 1! result parse routines, and leaves the results in the global data 
4 Re : : area. 
91 38 ii 
38 9 § 1 ! CALLING SEQUENCE: 
9 9 1! MOUNT_PARSE 
94 954 1! 
95 92? : ; INPUT PARAMETERS: 
335 1 | IMPLICIT INPUTS: 
Bon ie 
00 960 1 ! OUTPUT PARAMETERS: 
O 349 } : NONE 
i $968 IMPLICIT OUTPUTS: “ 
: 844: rh a mpure area on preceding pages 
Pea | PE al 
09 369 1 | SIDE EFFECTS: 
10 970 1! NONE 
} 1 
ig a 
i BEGIN 
1 LOCAL 
1 ITEM_LIST : BBLOCK CITEM_LIST_SIZE], ! Storage for item List 
18 END_OF _LIST, ! Pointer to end of item List 
8 STATUS; 
1 ! Enable the main condition handler. The handler will ensure that 
§ the return status will have the MOUNT facility code. 
? ! 
5 ENABLE MAIN_HANDLER; 
§ : Initialize list for system service. 
3 END_OF_LIST = ITEM_LIST; 
1 : Initialize result parsing. 
§ ZERO = 0; 
MOUNT_OPTIONS = MOUNT_OPTIONS+4 = 0; 
5 MOUNT" OPTIONSSOPT_MESSAGE) = 1; 
BPUNT™OPT IONS FOPTNOSHARE = 1; 
MUUNT_OPTIONSLOPT_NOLABELJ = 1; 
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MOUNT_OPT ONs tr -NOQUOTA) = 1; 
MOUNT_OPTIONSLOPT_NOHDR3] = 1; 
MOUNT-OPTIONSCOPT-NOUNLOAD) = 1; 

; Initialize CLI descriptor 

ELT DE Sc coScSactLASSoe” Dstsn crass: uD; 

PARSE QUALIFIER (); 

; Get device names 

GET_DEVICE (); 

: Get volume Labels 

GET_LABEL (); 

Get logical name 

GET_LOG_NAME (); 

: If no label given, construct null Label string 


eet »MOUNT_OPTIONS COPT_LABELJ 


BEGIN 
LABEL_STRING 
LABEL ST RING 9} = = Oi pet STRING (1); 


: Create a counted List of the addresses of all device names descriptors 
NCR J FROM 0 TO (.DEVICE_COUNT - 1) 
BUILD_LIST ¢ MNTS_DEVNAM 
-DEVICE_STR nt 
-DEVICE-ST ning ? J*25+1), 
END_OF_CIST ); 
: Create a counted List of the addresses of all volume name descriptors 
INCR J FROM 0 TO (.LABEL_COUNT - 1) 
BUILD_LIST ( MNTS_VOLNAM, 
-LABEL_STRING F523 
LABEL“STRING C(.J#25+1), 
END OF-LIST ); 
! Set up the parameter addresses for all specified parameters 


4 
1 
: Process the LOGNAM parameter 


IF .MOUNT_OPTIONS COPT_LOG_NAME} 
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3 5 1 THEN 3 
; 1 BUILD_LIST ( MNTS$_LOGNAM ; 
; 1 -LOG"NAM bS¢$u LENGTH] ; 
; 38 1 st DSCSA-PUINTERS, ; 
ez : END_OF LIST ); : 
; ¢ } } Process the /ACCESSED qualifier ‘ 
i 4 § i if, MOUNT _OPTIONS COPT_ACCESSED3 : 
3 4 5 BUILD_LIST ( MNTS_ACCESSED, 4, ACCESS, END_OF_LIST ); 

; ¢ ! H Process the /BIND qualifier 

: 40 If ,MOUNT OPTIONS COPT_BIND] 

: 411 107 BUILD_LIST ( MNTS_VOLSET, .STRUCT_NAMECDSC$W_LENGTH), 

; ig , .STRUCT_NAMECDSCSA_POINTERJ, END-OF_LIST ); 

3 ig i , ! Process the /BLOCKSIZE qualifier 

: 416 1 ud: if .MOUNT_OPTIONS COPT_BLOCKSIZE) 

; 41 107 THEN 

; 18 i 28 BUILD_LIST ( MNTS_BLOCKSIZE, 4, BLOCKSZ, END_OF_LIST ); 

3 4 9 Ht} 2 | Process the /CACHE=(CNOJEXTENT) qualifier 

: 4 é 10 ; IF .EXT_CACHE GTR 0 

; 6 10 THEN 

> 426 10 BEGIN 

i 4 5 10 5 BUILD_LIST (MNTS_EXTENT, 4, EXT_CACHE, END_OF_LIST); 

i 4 ; 1087 ¢ IF .ROUNT_OPTIONS COPT_NOEXT_C) 

3 4 9 1089 BUILD_LIST (MNTS_EXTENT, 4, ZERO, END_OF_LIST); 

; 431 i ! Process the /CACHE=(CNOJFILE_1D) qualifier 

: 4 : 1098 3 i .MOUNT_OPTIONS COPT_NOFID_C3 

; 4 1094 THEN 

: 435 1095 FID_CACHEs 1; 

: ‘ ! IF .FIDICACHE GTR 0 

3 438 i BUILD_LIST (MNTS_FILEID, 4, FID CACHE, END_OF_LIST); 

i 440 1100 ¢ | Process the /CACHE=(LIMIT) qualifier 

; 44 1 é if .EXT_LIMIT GTR =1 

; 464 1104 BUILD_LIST (MNTS_LIMIT, 4, EXT_LIMIT, END_OF LIST); 

; 4 i 3 ¢ | Process the /CACHE=(CNOJQUOTA) qualifier 

i 4 1 If _,MOUNT_OPTIONS COPT_NOQUO_C) 

: 450 1110 BUILD_LIST (MNT$_QUOTA, 4, ZERO, END_OF_LIST); 

> 451 1111 2 IF .QUO_CACHE GTR 0 
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pl 
BUILD_LIST (MNT$_QUOTA, 4, QUO_CACHE, END_OF_LIST); 
Process the /COMMENT qualifier 
if .MOUNT_OPTIONS COPT_COMMENT] 


BUILD_LIST ( MNTS_COMMENT, , COMMENT STRINGLDSCSU ENGTH) 
.COMMENT_STRINGLOSCSA_POINTERJ, END_OF_LIST 5; 


: Process the /DENSITY qualifier 
sHOUNT OPTIONS COPT_DENSITYJ 

BUILD_LIST (MNTS_DENSITY, 4, DENSITY, END_OF LIST); 
H Process the /EXTENSION qualifier 
IF cROUNT OPTIONS COPT_EXTENSION] 

BUILD_LIST ( MNTS_EXTENSION, 4, EXTENSION, END_OF_LIST ); 
: Process the /JOURNAL qualifier options 
IF .JRNL_SIZE NEQ 0 

BUILD_LIST (MNTS_JRNLSIZE, 4, JRNL_SIZE, END_OF LIST); 
r -JRNL_RECORD_SIZE NEQ 0 

BUILD_LIST (MNTS_JRNLRECORD_SIZE, 4, JRNL_RECORD_SIZE, END_OF_LIST); 
IF .JRNL_EXTEND NEQ 0 

BUILD_LIST (MNTS_JRNLEXTEND, 4, JRNL_EXTEND, END_OF_L‘ST); 
IF .JRNL_QUOTA NEQ 0 

BUILD_LIST (MNT$_JRNLQUOTA, 4, JRNL_QUOTA, END_OF_LIST); 


THE 


H Process the /OWNER_UIC qualifier 


iF MOUNT _OPTIONS COPT_OWNER_UICJ 
BUILD_LIST (MNTS_OWNER, 4, OWNER_UIC, END_OF_LIST); 


} Process the /PROCESSOR qualifier 


if .MOUNT_OPTIONS COPT UNIQUEACP) 
.MOURT OPTIONS COPT SAMEACP 
rene” -MOURT_OPTIONS COPT_FILEACP) 
BUILD_LIST ( MNTS_PROCESSOR, .ACP_STRING COSCSW_L 
-ACP_STRING LOSCSA_POINTER], END_OF-L 


! Process the /PROTECTION qualifer 
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ir -MOUNT_OPTIONS COPT_PROTECTION] 

BUILD_LIST (MNTS_VPROT, 4, PROTECTION, END_OF_LIST); 
Process the /RECORDIZE qualifier 
fgg WOUNT OPTIONS COPT_RECORDSZ) 

BUILD_LIST ( MNTS_RECORDSIZ, 4, RECORDSZ, END_OF_LIST ); 
} Process the /WINDOW qualifier 
IF .MOUNT_OPTIONS COPT_WINDOW] 

BUILD_LIST ( MNTS_WINDOW, 4, WINDOW, END_OF_LIST ); 


Set the MOUNT flags according to their counterparts in MOUNT_OPTIONS 


MOUNT_FLAGS CMNTSV “foneTen = = .MOUNT_OPTIONS COPT_CLUSTER]; 
MOUNT FLAGS BNTSV “FORE! = ABROUNT OPTION OPT"FOREIGN] OR .MOUNT_OPTIONS COPT_NOLABELJ; 
MOUNT-FLAGS CMNTSV—G 1 OBTION one OPI GROUP 
MOUNT-FLAGS CMNT VIN AL mOUNOONT NS OPT. INIT_ALLI; 
T-FLAGS CMNTSV“INIT Ad = .mOU MOUNTS OPT10 T_INIT Ont; 
MOUNT-FLAGS CMNTSV“MESSAGE] = "ROUNT OPTIONS” OPT “AESSA GF: 
MOUNT-FLAGS CMNTSV“NEWJRNLJ = .MOUNT-OPTI OPT=N 
MOUNT-FLAGS CMNTSV-NOASSIST) = NOT .AMOUNT OPTIONS “opt PASsisT); 
MOUNT "FLAGS VNOAUTO3. = -MOUNT “OPTIONS urd: 


“ MANTSV_ 
MOUNT_FLAGS [MNTSV_NOCACHE) = .MOUNT_OPTIONS FOPT NOCA Wed 


MOUNT_FLAGS [CANT v-NobISKe = .MOUNT OPTIONS LCOPT 

MOUNT_FLAGS [LANTSV_NOHDR } = .MOUNT_OPTIONS OE T_ROHDR HEE 

MOUNT _FLAGS V.NOJRNLJ = .MOUNT_OPTIONS nS CORT 
MOUNT_FLAGS CANTSV_NOMNTVER] = NOT .MOUNT ah NS _COPT OUNT VER]; 
MOUNT_FLAGS = OPTION 


MNTSV~NOUNL NT OP 
MOUNT"FLAGS RNTSV-NOURTTED ~ NOT MOUNT OPTIONS tongue wR SHOE 


MOUNT FLAGS Tov_ovr ACCESS] © -MOUNT_ OPTIONS COPT_OVR_ACC); 
MOUNT_FLAGS LMNTSV_OVR_EXP MOUNT OPTIONS fort ,0 VR_EXP): 
MOUNT-FLAGS CMNTSVOVR-IDENT) = OROURT. OP COPY VOOR 103; 
MOUNT_FLAGS LMANTSV_OVR_LOCK) = ae 0 OPTIONS coPt, T_Ovr_COc 
MOUNT_FLAGS [MNT yoann 20) © atu = .MOUNT_ OPTIONS COPT_OVR ror ba: 
MOUNT_FLAGS LMNTSV_OVR he = T OPTIONS Copt_Gvr 
MOUNT_FLAGS [MNT VAREABCHEC CK] = PROUNT OPTI pas Af Ta EADCHECKI: 
MOUNT_FLAGS CANT Va te “MOUNT T OPTIONS ort 

MOUNT_FLAGS CANTSV_SYSTEM) = .MOUNT OPTIONS COPT Ne cha; 
MOUNT_FLAGS TSV_WRITECH Kl = .MOUNT_OPTIONS [OPT WRITECHECKI; 
MOUNT-FLAGS CMNTSV-WRITETHRU) = .MOUNT_OPTIONS COPT_QTHRU 
MOUNT_FLAGS CMNTSV_NOREBUILD . -MOUNT“OPTIONS COPT “NOREBUILD); 

‘ Byitd an item List entry for mount flags, then terminate the item List 
with @ zero value. 

ByILD LIST ( mis. FLAGS, 4, MOUNT_FLAGS, END_OF_LIST ); 


' Now that all the parameters have been parsed, call the SMOUNT system service. 


ee 
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! Note the informational messages ney be issued from epunt via @ SPUTMSG and 
: a status value from the call will be returned as well. 


STATUS = SMOUNT C(ITMLST = ITEM_LIST); ! Mount the volume(s) 


rae 


at 2 Dd 


Wr—OOOno 


RETURN (.STATUS) 


Return status of SMOUNT call 


END; ! end of routine PARSE_COMMAND 
.TITLE MOUNTIM 
* IDENT PET AN 
.PSECT S$PLITS,NOWRT,NOEXE,2 
44 45 53 53 45 43 43 41 0 P.AAB: .ASCII AACCESSED\ ; 
000 00 P.AAA: .LONG 8 : 
0 ' ¢ “ADDRESS P.AAB ; 
54 53 49 53 5 0 P.AAD “ASCII \ASSIST\ : 
99900006 i8 P.AAC: .LONG F 
9900 * 0001 “ADDRESS P.AAD F 
43 49 54 41 4D GF 54 41 P.AAF: “ASCII \AUTOMATIC\ : 
88090008" 99 dann “LONG. P.AAF 
44 4E 03 Ke 09 p-AAH ASC \BIND\ 
00900009" 09 f “ADDRESS P.AAH 
45 SA 49 53 4B 43 4F 4C 4 sf P.AAJ: ASCII \BLOCKSIZE\ 
00900 Hf ts oueen “LONG P.AAJ 
45 48 43 4 3 4 P.AAL: ASCII \CACHE\ 
90000 5 P.AAK: .LONG 
000000° “ADDRESS P.AAL 
52 45 54 53 55 4C 4 P.AAN CII \CLUSTER\ 


AS 
L 


C 
“BLKB 1 
90000 7, P.AAM: .LONG 7 
“ADDRESS P.AAN 
54 4E 45 4D 4D 4F 4 P.AAP “ASCII \COMMENT\ 
Bog00006 — “hoM gs" AAP 
- 4B 43 45 48 43 SF 41 54 P.AAR “ASCII \DATA_CHECK\ 
00900 $: viene tone, fg AAR 
59 54 49 53 4E P.AAT ASCII \DENSITY\ 
SHER, BSE Poms: IRE ha 
4E 4F 49 53 4E 45 56 P.AAV ASCII \EXTENSION\ 
99990009 P.AAU: .LONG 3 
, “ADDRESS P.AAV 
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MOUN 
: \FOREIGN\ 
«LONG 
eADDRESS P.AAX 
eASCI GROUP\ 
-BLKB 
«LONG 
tS) P.AAZ 
eASCII = \HDR3\ 
«LONG §=4 
eADDRESS P.ABB 
eASCIT = \INITIALIZE\ 
-BLKB ‘ 
e LONG 0 
»ADDRESS P.ABD 
eASCIIT = \JOURNAL\ 
-~BLKB 1 
LONG 7 
eADDRESS P.ABF 
eASCIT = \LABEL\ 
-BLK 
«LON 
eADDRESS P.ABH 
“ASCII \MESSAGE\ 
-BLKB 1 
“LONG 7 
eADDRESS P.ABJ 
ASCII \MOUNT_VERIFICATION\ 


-BLKB 2 

-LONG =18 
-ADDRESS P.ABL 
AS 1h \NOLABEL\ 


BL 

-LONG 

eADDRESS P.ABN 
1b \OVERRIDE\ 
eADDRESS P 

a \OUNER -VIC\ 
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MOUNT. SRC JMOUNTIMG.B32;1 

-LONG 7 

ADDRESS P.ABZ 

ASCI \RECORDSIZE\ 

-BLKB ; 

- LONG 0 

+3) i P.ACB 

eASCI SHARE\ 

-BLKB 

LONG 

eADDRESS P.ACD 

ASCII SYSTEM\ 


PE Bo 
Oe HE 
PRR 
Se HE 
Sah 

7 9 10 aye 
eT BB ec 
SHINS. HEsE Poe 


«LONG 
eADDRESS P.ACF 
eASCII = \UNLOAD\ 


LONG 
eADDRESS P.ACL 


-PSECT SOWNS ,NOEXE,2 


00000 DEVICE_COUNT 
00004 LABEL_COUNT: 
-BLKB 
00008 DEVICE STRING: 
00088 LABEL_STRING: 
00108 LOG_NAME: 
.BLKB 
00110 MOUNT_OPT IONS: 
00118 MOUNT_FLAGS: 
-BLKB 
0 11C ACCESS: .BLKB 
120 ACP_STRING: 
BLK 
99 128 BL BLOCKSZ: BLKB 


00130 sag 
00134 QUO_CACHE: 
00138 COMMENT_STRING: 
00140 DENSITY: .BLKB 


LKB 
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TIMG Se 4 9 AX-11 Bliss-32 V4.0- Page 16 
Youn 000 1ox80R=}38e Pb:28:g7 AMON) Beige oe ae aot ve 4s vO4 
UNLOAD_DESC= P.ACG : 
WINDOW"DESC= PL ACI ; 
WRITE _BESC= P.ACK : 
~EXTRN LIBSCVT_DTB, ges RSE OEY Dx : 
SEXTRN CLISGET~VALU LISP PRESENT ; 
EXTRN CLI “ABSENT tL i$ DEFAU ULTED : 
SEXTRN CLI NEGATED, Lis. PRESENT : 
“EXTRN SYS Ag OUNT : 
.PSECT SCODE$,NOWRT,2 
OOFC .ENTRY PARSE_COMMAND, Save R2,R3,R4,R5,R6,R7 3 0941 
57 Q00OvV CF 9E MOVAB BUILD“LIST, R? : 
6 000' CF gE MOVAB OuNT FLAGS, R6 ; 
5E FDAS CE 9€ ¢ MOVAB 5 4(SP), SP : 
6D 0391 cr DE 1 MOVAL » (FPS + 0974 
—E OD 16 PUSHL + 0989 
008¢ C6 b4 1 CLRL : 0993 
F AG 1c CLRO ae : 0994 
FE AG 0 8 1F BISB MOUNT. OPT IoNs+6 + 0995 
FB AG 1010 BF A 3 BISW 4{12, MOONT_O : 0997 
FD AG 14 BISB 420, MOUNT OPT TONSe : 0999 
Fo AG 04 D BISB2 #4, MOUNT_OPTIONS+1 + 1000 
08 00 6E - 00 C 00031 MOVCS #0. (SP),~#0, #8, CLI_DESC + 1004 
5B OAG 03 90 5 MOVE ss #2, ESC+3 + 1005 
0000v CF 00 FB 0003C CALLS 4&0, PARSE QUALIFIER + 1007 
0000v CF O8 FB 00041 CALLS #0, DEVI 3 1011 
0000v CF 0 FB 00046 CALLS #0, get - a! at + 1015 
0000v CF 00 re 004 CALLS #0, GET“LOG NAME > 1019 
FB AG 93 003 ist MOUNT T_OPTIONS+3 + 1024 
FF70 C6 p4 03 CLRL_ LABEL_STRING : 1027 
FF74 o6 FF74 C6 ; 9 MOVAB LABEL “STRI ING+4 LABEL_STRING+4 : 10 : 
S FEES cs DO 00060 1$: MOVL i , 3 : 10 
a 19 $7 boos BRB S 
5E bp 6A 2s: PUSHL sp + 1035 
50 52 01 ASHL . J, RO : 1037 
FEF4 C640 bp PUSHL 4 EVICE_STRING#4CRO : 
50 52 o1 7 ASHL #1, J,°R > 1036 
FEFO C640 DD PUSHL DEVICE_STRINGCROJ : 
1 DD 0007 PUSHL #1 + 1035 
E3 tH 3 3 3s: Roptss RE Deby test 
33 FEEC of D t ROVE babel COUNT, R3 + 1042 
9 f F BRB 5$ ; 
F bp 4$: PUSHL SP > 1044 
50 52 ASHL J, RO + 1046 
FF74 C6 p bp PUSHL OhbeL *STRING+4CRO) ; 
50 52 0 ASHL #1, J7 RO > 1045 
FF70 C640 DD OOOA PUSHL LABEL’ STRINGCROJ : 
, DD OOOA PUSHL @# > 1044 
1 ; i AA 58: OBES REL eS 
be FBG H E AE BBC RR. AOUNT _OPTIONS+3, 6$ : 1054 
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5E Dd 0008 PUSHL SP 
Fe OA BD 9008 PUSHL LOG_NAME+4 
7E FO Ag 3C 0008 MOVZWL LOG"NAME, =(SP) 
DD 000BC PUSHL  # 
67 4 FB F CALLS #4, BUILD_LIST 
Ab 1 € Ci 6$: BBC #1, MOUNT-OPTIONS+3, 7$ 
E BD C6 PUSHL SP 
06 Ab SF 000C PUSHAB ACCESS 
4 od 000CB PUSHL  # 
5 DD 000CD PUSHL # 
67 4 FB 000cE CALLS #4, BUILD LIST 
OE FD AG E De 7$ BLBC MOUNT_OPTIONS+5, 8$ 
5E 0D 0000 PUSHL SP 
50 A pp O08 PUSHL  STRUCT_NAME+4 
7€ 4c =A6 «3 00008 MOVZWL STRUCTINAME, =(SP) 
0 DD O00DF PUSHL #7 
67 4 FB OO0E] CALLS #4, BUILD LIST 
0c FA A6 €E9 OOOES 8S: BLBC = MOUNT_OPTIONS+2, 9$ 
3E DD OO0E8 PUSHL SP 
10 A6 9F OOOEA PUSHAB BLOCKSZ 
4 DD OO0ED PUSHL #4 
8 DD OOOEF PUSHL #8 
67 4 FB OOF | CALLS #4, BUILD_LIST 
14 Ab DS OOOFS 9S: TSTL EXT_CACHE 
C 15 000F7 LEG 
E DD 000F9 PUSHL SP 
14 A6 9F 000FB PUSHAB EXT_CACHE 
04 DD O00F PUSHL 44 
A DD 001 PUSHL #10 
67 4 FB O01 g CALLS #4, BUILD LIST 
FD A6 9500105 108:  TSTB | MOUNT_OPTIONS+5 
D 18 001 BGEQ §=s-:11$ 
E DD 0O10A PUSHL SP 
00sec § Ch «OF 001 PUSHAB ZERO 
4 0D 0011 PUSHL #4 
A DD 0011 PUSHL #10 
67 04 FB g1ig CALLS #4, BUILD LIST 
04 FE A6 £9 00117 11$:  BLBC MOUNT _OPTIONS+6, 12$ 
18 A6 01 DO 0011B MOVL #1, FID CACH 
18 A6 D5 OOF 128:  TSTL F 1b _CACRE 
oc 15 00122 BLEG 138 
5 pp 0124 PUSHL SP 
18 AG 9 00126 SHAB FID_CACHE 
4 0D 001 PUSHL #4 
B DD 00128 PUSHL #11 
67 4 FB 001 CALLS #4, BUILD_LIST 
60 A6 D3 130 138: = TSTL Xf _LIMIT 
g¢ 19 001 BLSS 4$ 
E po 1 PUSHL SP 
60 A6 9F 001 PUSHAB EXT_LIMIT 
4 OD 0013A PUSHL #4 
C DD 0013C PUSHL #12 
67 4 FB 0015 CALLS #4, BUILD_LIST 
0D FE AG 1 £1 00141 148: BBC #1. MOUNT“OPTIONS+6, 15S 
E BD 146 PUSHL SP 
008¢ co oF 14 PUSHAB ZERO 
4 DD 0014C PUSHL # 
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F DD 001 PUSHL #15 ; 

67 4 FB 001 CALLS #4, BUILD_LIST : 
1c Ab p 153 15$ TSTL y CACHE + 1111 

g¢ 1 BLEG Ss : 
E pd 1 PUSHL SP + 1113 

1¢ A6 OF O015A PUSHAB QUO_CACHE ; 

4 Dd 0015p PUSHL # : 

67 f 3 i ‘ ches a BUILD_LIST : 
OE FB A 3 Ef 184 16$ BBC #3, MOUNT-OPTIONS, 17$ + 1117 
DD 00169 PUSHL  $P + 1119 
34 A po 1 PUSHL  COMMENT_STRING+4 ; 1120 

7E 0 C 001 MOVZWL COMMENT STRING, -(SP) : 111 

14 DD 001 PUSHL #20 : 

67 04 FB 17 CALLS #4, BUILD_LIST : 
0c F8 A6 £9 00177 17$:  BLBC MOUNT_OPTIONS, 18$ + 1126 
SE BD 178 PUSHL SP + 1126 

28 =A6 OF 0017D PUSHAB DENSITY F 

4 DD 180 PUSHL #4 F 

9 DD 001 PUSHL 4&9 : 

67 04 FB 001 CALLS #4, BUILD_LIST : 
FA A6 95 00187 18$:  TSTB MOUNT OPTIONS +2 + 1130 

OC 18 0018A BGEQ 19$ ; 
SE DD 0018C PUSHL SP + 1132 

2c «AG OF OO18E PUSHAB EXTENSION ; 

04 0D O13 PUSHL 4&4 ; 

12 DD 193 PUSHL # ; 

67 04 FB 0019 CALLS #4, BUILD_LIST ; 
38 «AG DS 00198 19$:  ‘TSTL RNL_SIZE + 1136 

C 13 00198 BEQL 0$ ; 
E DD 0019D PUSHL SP : 1138 

38 «=A6 OOF 0019F PUSHAB JRNL_SIZE ; 

04 OD 001A2 PUSHL #4 ; 

15 DD 001A4 PUSHL #21 F 

67 04 F 1A CALLS #4, BUILD_LIST F 
3c 6 A6SO*DS <OOIAD 208: _—sTSSTL JRNL_RECORD_S1ZE + 1140 

g¢ 13 OO1AC EQL 1$ : 
D OO1A PUSHL SP + 1142 

3c 0 AGsOSF:s«001B SHAB JRNL_RECORD_SIZE ; 

04 DD 0018 PUSHL : 

18 DD 001B PUSHL @# F 

67 04 FB 001B CALLS #4, BUILD LIST ; 
34 Ad D5 OO1BA 218:  =‘TSTL RNL_EXTERD + 1144 

g¢ 13 00180 BEQL 2$ ; 
D 001BF PUSHL SP : 1146 

34 Ab 9F 001C1 PUSHAB JRNL_EXTEND ; 

4 DD 00164 PUSHL #4 ; 

6 DD C6 PUSHL #22 ; 

67 04 FB OOIC CALLS #4, BUILD_LIST ; 
30 A6 p 1€B 228:  TSTL JRNL_QUOTR : 1148 

g¢ 1¢ BEQL 3$ : 
E bb 1 PUSHL SP : 1150 

30 Ab 9F 0010 PUSHAB JRNL_QUOTA ; 

4 DD 001D PUSHL #4 ; 

67 4 FB 00109 CALLS #&> BUILD_LIST : 
0c FA Ab 2 ef 10C 23$ ¢ #2; MOUNTOPTICNS+2, 24$ + 1155 


many 
aa 
oOow 


PW FY VO" ON OS | 2 OOS aS Roy 


SOOOOOSOOCOMGOGOOCSOCGOOOOM OoSoOOoOn 


SSSSSSESS SESSSSTSESE “SES 


40 


08 


4% 


48 


FB 
54 


FF 


St 


ed ed ad ad db QO OOO MF -F9 “Vd “VUETIFTUFTICTICTICTS 


COALS NMI O HV FOO — 


OOOOMnO OC OOM "OWI OMMmMnoOoOoO 


~oomn 
OnONONONOVMNOOVNONOVNOVNOOMMO NWS Ir OWCO 7S —-DWIO 79 -MI C00 -Ccowvo0 "0 


SOGOOSOOOSOSOOOSGOOOSOOOOSOOSOOSSoOSoSoSO 


oO 


OOQOOOooooooooooooooooooooooo 


OOOCOCCOSOOCOOCOCOCOOCOOOOOOOCOOOOOCOOoO 


~ 
oO 
nn 


OOOCOCCooooa 
m<< 


oOowwwr>> —d PE VANE & & 
i 
N<e cnc Ne NCNCONNC™~E 
<< < F< <<« < < “n 


SLOG LO QOMNPOMOWONG NO ENO FM LAM A SOLEMN ME OM SM SOOM LUM FO LOM 


MOUOMOMOWUNMO BF NOMUOMOVIOUMOOMUN1DO "9 F 1 FP OO FPN OOOO FP 1000 FP Pwr oooocer 


ee FT me FTN Ome FFT Ome FFT Ome “EE FFT 0 00 FTI 09 FTI 00 FTI FTI = COM MeN “OO 
2X 2X ZxXSXZOMRSIXSRXISKSKAZ MH & 
Srecrearearea 

<N<enecncN<c 


WM HM MM HM KOM KN NM HM NM Kirn NOComm wm nNOS 
<a 


eSeec38s Q:08897 YAGIT Skisaader Ys 
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ae: BUILD_L 


#4, 
ACP. STRING? 4 
as STRING, =(SP) 


» BUILD_LIST 
a: MOUNT ~OPTIONS#2, 27$ 
lalate 
#14 
#4, BUILD_LI 
#5, MOUNT _OP 
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j= 
BOURIT _OPT IONS OPT-NOLABEL) = 0; 


; if 4 ROUTINE PARSE_QUALIFIER : NOVALUE = 
: 33 1 1 144 

§ a8 1 i! 

; $7 | FUNCTIONAL DESCRIPTION: 

: 1 1240 1! This routine parses the qualifiers of the MOUNT command Line by 
; ¢ : re : : calling the CLI result parse routines. 
; 1 rk 1 | CALLING SEQUENCE: 

; 585 44 PARSE_QUALIFIER () 

; 1 4g 1 | INPUT PARAMETERS: 

: a8 1247 1! NONE 

; 589 1 48 13 

: 590 1249 1! IMPLICIT INPUTS: 

a ini 

; 38 1 ; 1 | OUTPUT PARAMETERS: 

: 59% 1 1} NONE 

: 595 1254 1! 

; % 1255 1! IMPLICIT OUTPUTS: 

; 44 6 MOUNT_OPTIONS BITS SET 

; 239 1 38 1 ! ROUTINE VALUE: 

: 600 1259 1! NONE 

: 601 1260 1! 

; 60¢ 1261 1 | SIDE EFFECTS: 

: 60 1 6¢ 1} NONE 

: 604 1263 1! 

: 605 64 lee 

: ge 1 66 BEGIN 

; 608 126 

: 609 1 68 

$ 219 : ; : First, parse the qualifiers that de not have values, and cannot be negated. 
; 6g 1271 2 | /FOREIGN qualifier 

Be RE 

> 615 1274 2 IF CLISPRESENT ( FOREIGN_DESC ) 

3 616 1275 2 TH 

: 61 ? ex gelOUNT-OPT1ONS COPT_FOREIGN) = 1 
; gi8 1 28 MOUNT_OPTIONS COPT_FOREIGN) = 0; 
: 6 9 

: 4 t /LABEL qualifier 

> 626 1 IF CLISPRESENT ( LABEL_DESC ) 

> 625 1 THEN 

3 $ 1 BEGIN 

; MOUNT OPTIONS ([OPT_LABEL) = 1; 
; 1 

; 1 

; 1 
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3 gg 1 ! Now, parse those qualifiers that do not require a value, and can be 
; gee } : negated 

5 646 i /ASSIST qualifier 

: eta 1 SELECTONE CLISPRESENT ( ASSIST_DESC ) OF 

: 64 1 SE 

; 6 1 {cul -PRESENT 

; 6 1 CLIS“DEFAU TED : MOUNT_OPTIONS Assist] =1; 
; 6 CCLis~ “NEGATED : MOUNT~OPTIONS OPT ASSIST] = 0: 
: 6 1 $3 

: 2 5 ! /AUTOMATIC qualifier 

; 6 $ SELECTONE CLISPRESENT ( AUTOMATIC_DESC) OF 

: re 1 CCLIS$_PRESENT 

; 660 1 CLI$ DEFAULTED MOUN’ OPTIONS [OPT_NOAUTO] = 0; 
; 661 ,Fetls EGATED) : MOUNT-OPTIONS LOPT“NOAUTO) = 1: 
; ree. 1 

; 664 1 

: 665 ; : /CLUSTER qualifier (default is /NOCLUSTER) 

; $6? SELECTONE CLISPRESENT ( CLUSTER_DESC ) OF 

: ges i CLIS -PRESENT) : MOUNT_OPTIONS COPT_CLUSTER] = 1; 
: 670 1 CLIS~DEFAULTED, 

: 671 1 CLIS~ABSE 

: 67¢ 1 CLIS“NEGATED] =: MOUNT_OPTIONS COPT_CLUSTER) = 0; 
: 67 1 TES; 

3 674 1 

: 675 1 

: 676 ! /GROUP qualifier 

3 678 i SELECTONE CLISPRESENT ( GROUP_DESC ) OF 

; 1 CLIS_PRESENT] : MOUNT_OPTIONS COPT_GROUP) = 1; 
> 681 i CLIS"DEFAULTED, 

; Q 1 CLIS"ABSENT 

; CLIS“NEGATED] =: MOUNT_OPTIONS COPT_GROUP) = 0; 
; 685 : 

3 ! /HDRS qualifier 

3 6 SELECTONE CLISPRESENT ( HDR3_DESC ) OF 

: 691 1 rele PRESENT 

: 69 1 LES-DEFAULTEDD : MOUNT_OPTIONS [OPT -WOHDRG = 0; 
: 693 S"NEGATED) : MOUNT"OPTIONS COPT“NOHOR3) = 1; 
: 695 1 g 

3 69 ! /MESSAGE qualifier 

; 698 1 SELECTONE CLISPRESENT ( MESSAGE_DESC ) OF 
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CL DJ] : MOUNT_OPTIONS oer MESSAGE 1; 
FAULT : MOUNT -OPTIONS COPTIMESSA AGE3 = 0; 
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TES; 
t /MOUNT_VERIFICATION qualifier 
SELECTONE CLISPRESENT ( MOUNT_VER_DESC ) OF 

CCLIS_PRESENT 

CLI$~ =DEFAUL UL TEDI : MOUNT_OPTIONS [OPT_MOUNTVER 

a ct LISINEGATED] _: MOUNTZOPTIONS COPTMOUNTVER 3 
/QUOTA qualifier 
SELECTONE CLISPRESENT ( QUOTA_DESC ) OF 

CCLIS_PRESENT . 


CLI$ DEFAULTED : MOUNT_OPTIONS COPT_NOQUOTA]) = 0; 
$: CCLIS-NEGATED : MOUNTLOPTIONS COPT“NOQUOTA] = 1; 
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: /SHARE qualifier (default is NOSHARE) 
SELECTONE CLISPRESENT ( SHARE_DESC ) OF 
CCLIS_PRESENT] : BEGIN 


MOUNT_OPTIONS COPT_SHARE] = 
BOUNT [OPTIONS COPT “NOSHARED = 0; 
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/SYSTEM qualifier 
SELECTONE CLISPRESENT ( SYSTEM_DESC ) OF 
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4 CLIS -PRESENT] : MOUNT_OPTIONS COPT_SYSTEM) = 1; 
741 CLIS~DEFAULTED, 

74 CLIS"ABSEN 

43 ay CLI$ “ABSENT : MOUNT_OPTIONS COPT_SYSTEM] = 0; 
745 ‘ 

74 

oe /UNLOAD qualifier 

74 SELECTONE CLISPRESENT ( UNLOAD_DESC ) OF 
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res:.0° ~NEGATED : MOUNT-OPTIONS LOPTNOUNLOAD 
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: 1414 3 | /WRITE qualifier 
3 1416 ¢ SELECTONE CLISPRESENT ( WRITE_DESC ) OF 

; 141 cel atid ENT 

; 14 ~PEFAUL gpd : MOUNT OPTIONS FOPT_URITE] = 1; 

; 14 -—. cét TED] + =MOUNTIOPTIONS COPT=WRITE) = 0: 

3 14 

> 765 14g5 ¢ | /CNOIREBUILD qualifier 

; ie 14g5 ¢ SELECTONE CLISPRESENT ( REBUILD_DESC ) OF 

; 7 1059 CCLIS_PRESENT 

; 770 1408 CLIS-DEFAUL‘ED] : MOUNT OPTIONS [OPT NOREBUILD] = 0; 
: oe i CCLIS-NEGATEDS : MOUNTZOPTIONS LOPTCNOREBUILD] = 1; 
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13-808-1 882 93:08:45 MOUNT. SRCIMOUNTIMG.B3251 = (8 
} Finally, parse the qualifiers that might have values, or require values 
/ACCESSED qualifier 
ir MOUNT_OPTIONS COPT_ACCESSED] = CLISPRESENT (ACCESSED_DESC) ) 
att 
CLISGET_VALUE ( ACC 
IF NOT T LIBSCVT_DT 


Ww 


ESSED 
BC. 
THEN 

- ERR_EXIT (MOUNS_VALCNVERR) ; 


: /BIND qualifier 
iF MOUNT_OPTIONS COPT_BIND) = CLISPRESENT (BIND_DESC) ) 

besin 
et GET VALUE é BIND DESC. CLI_D 
CHSFILL”( 0, DSCSC_S-BLN, STRUCT 
STRUCT_NAME ppscse DTYPEJ = DSC$ 
“iS 
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: /BLOCKSIZE qualifier 
if ( MOUNT_OPTIONS COPT_BLOCK] = CLISPRESENT (BLOCK_DESC) ) 
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CLISGET_VALUE ( BLOCK_DESC, CL 
IF NOT T LIBSCVT_OTB T .CLE_DE 

CLT p 
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I DESC ); 
SC COSC$W_LENGTH) 
ESC COSCSA_POINTER], 


PEERS RELRARRSE 


THEN 
ERR_EXIT (MOUNS_VALCNVERR) ; 


E ~BLOCKSZ GTRU 65534 


ERR_EXIT (MOUNS SZTOOBIG); 
MOUNT OPTIONS COPT_BLOCKSIZEJ = 1; 
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ECTONE CLISPRESENT (CACHE_DESC) OF 


CCLIS_PRESENT] : BEGIN . 
MOUNT_OPTIONS COPT_CACHE) = 1; ; 
CACHE-ACT (); 
END; 

CCLIS_NEGATED) : BEGIN 
MOUNT_OPTIONS COPT_NOCACHE) = 1; 
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MOUNT Ber iONs fo | Eat WTHRU) = 1; 
MOUN T“NOEXT_C 
NOUNT= “OPTIONS [OPT"NOF ID -# 
BOUT. OPTIONS COPT“NOQUO-C 


"4: 
1; 
1; 
TES; 
/COMMENT qualifier 
if MOUNT_OPTIONS COPT_COMMENT] = CLISPRESENT (COMMENT_DESC) ) 
BEGIN 
hae GET_VA ng § grnent pest. 
FILL” ¢ cota tN com 
COMMENT _STR tse AH H4 3 
NG 


C 
CH 
/ COMMENT Taine DSCSB-CLAS 
ST TRSCOPY. Dx C COMMENT “STRI 
: /DATA_CHECK qualifier (value not required) 
if CLISPRESENT (DATA_DESC) 
DATACHECK_ACT (); 
! /DENSITY qualifier 
if i MOUNT_OPTIONS COPT_DENSITY] = CLISPRESENT (DENSITY_DESC) ) 
DENSITY_ACT (); 
! /EXTENSION qualifier 
if ¢ MOUNT_OPTIONS COPT_EXTENSION] = CLISPRESENT (EXTENSION_DESC) 
BEGIN 
CLISGET VALUE ( EXTENSION DESC chi DESC ); 
F NOT T LIBSCVT_DTB ( .CCI_DESC 
CLT DESC 
ie EXTENSION )) 
nt ERR_EXIT (MOUNS_VALCNVERR); 


: /INITIALIZE qualifier 


if CLISPRESENT ( INITIALIZE_DESC ) 
INITIALIZE_ACT (); 

: /JOURNAL qualifier (value not required) 
ieeuntee SELECTONE CLISPRESENT (JOURNAL_DESC) OF 


leeJnLee CLIS$_PRESENT] : JOURNAL_ACT (); 
ieeJNLee CLIS"NEGATED) : BEGIN 
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lee JNLee MOUNT OPTIONS FOPT NOJRNLJ = 1; 
ine JNLee MOUNT OPTIONS OPT“NEWJRNLJ = 0; 
ieeJNLee JRNL_SIZE = 0; 

ive JNLee JRNUTEXTEND = 0; 

ieeJNLee JRNL-QUOTA = 0; 

ieeJNLee JRNL-RECORD_SIZE = 0; 


tee JNL ee END; 
twaJNLe® TES; 


; /OVERRIDE qualifier 

IF CLISPRESENT (OVERRIDE_DESC) 
OVERRIDE_ACT (); 

: /OWNER_UIC qualifier 

if ( MOUNT_OPTIONS COPT_OWNER_UIC] = CLISPRESENT (OWNER_DESC) ) 
OWNER_UIC_ACT (); 

/PROCESSOR qualifier 

A haa (PROCESSOR_DESC) 
PROCESSOR_ACT (); 

/PROTECTION qualifier 

= . MOUNT_OPTIONS COPT_PROTECTION] = CLISPRESENT (PROTECTION_DESC) ) 
PROTECTION_ACT (); 

: /RECORDSIZE quaiifier 

ies MOUNT_OPTIONS COPT_RECORDSZ] = CLISPRESENT (RECORD_DESC) ) 


BEGIN 

CLISGET_VALUE ( RECORD_DESC, CLI_DESC_); 

IF NOT T LIBSCVT_DTB (~.CLI_DESC scsi LENGTH] 
CLT DESC COSC$K_POINTER), 
RECORDS2 ) ) 


THEN 
ERR_EXIT (MOUNS_VALCNVERR) ; 


a cea GTRU 65534 
- ERR_EXIT (MOUNS_SZTOOBIG) ; 


; /WINDOWS qualifier 
if MOUNT_OPTIONS COPT_WINDOW] = CLISPRESENT (WINDOW_DESC) ) 


BEGIN 
CLISGET_VALUE ( WINDOW_DESC, CLI_DESC ); 
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12: 38° 138 9}: 6: $3 MOUNT .&R bi ssooar ing. asoe1 ° 3 
1 4 IF NOT ( LIBSCVT_DTB ( .CLI_DESC CDSC$W_LENGTH 
18 i 4 -CLY_DESC Poses $K_POINT Hes, 
16 4 4 winoou ») 
i 6 : ERR_EXIT (MOUNS_VALCNVERR) 
1 
1809 END; ! of PARSE_QUALIFIER routine 
rn: Seen atin naan" eee R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 1234 
e ave e 3 
58 00000 : G6 8F DO 90002 MOVL  &#CLIS_DEFAULT éb Rif ; 
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29 000006 8F 00 00 19 MOVL &#CLIS"PRESENT. R9 ; 
: cr 9E 0001 MOVAB ACCESSED DESC, R8 : 
57 000000006 60 9€ 0001 MOVAB CLISPRESENT, R7 ; 
56 9000' CF 9€ OVAB MOUNT OPTIONS, R6 ; 
OBC (8 OF PUSHAB FOREIGN DES + 1274 
67 1 FB C ALLS #1, CLISPRESENT : 
06 0 : F LBC RO, ; 
01 Ab 08 oe BI SB2 48. MOUNT_OPTIONS+1 + 1276 
01 Ab 08 BA 1$: BICB2 #8, MOUNT_OPTIONS+1 + 1278 
010c CB OF C 2$: PUSHAB LABEL + 1283 
67 1 re 46 CALLS #1, ¢ ISPRESENT : 
09 0 4 BLBC. —-_ RO ; 
03 Ab 80 BF 88 00046 BISB ate MOUNT s0hTioNses + 1286 
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5B 0 07 CMPL 58" R11 : 
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1 BRB § : 
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A 11 00149 BRB 25$ 
SA i$ j 148 24$: cmPL RO, R10 
06 Ab 40 8F 8A 001 BICB2 #64, MOUNT_OPTIONS+6 
O1A4 : F 00155 25$ PUSHAB QUOTA Dest 
7 FB 001 CALLS #1, cc PRESENT 
9 Q p 15¢ CMPL =sRO, R 
15F BEQL 268 
58 0 D 18 cnPL RO, R11 
05 Ab 4 eh 6 26$: B1CB2 4 MOUNT _OPTIONS+5 
SA 8 01 ig 27$:  CMPL RO, R10 
04 fF 16 BNEQ 288 
05 Ab 4 ‘ 171 BISB2 #4, MOUNT_OPTIONS+5 
018 C8 OF 123 28$:  PUSHAB SHARE Dest 
67 1 FB 0017 CALLS #1, ctl PRESENT 
59 0 D1 oi7e CMP RO. R 
09 iF 17F BNEQ 2 
66 40 = BF 8 0181 B1$B2 #64, MOUNT_OPTIONS 
66 10 8A or 5 BICB2 #16, MOUNT_OPTIONS 
0D 11 001 BRB 31$ 
58 50 D4 018A 298:  CMPL RO, R11 
93 13 0018 BEG «=ss«3308 
5A D1 0018F CMPL RO, R10 
0 iF 192 BNEG }460s 31 
66 1 8 0194 308: BISB2 #16, MOUNT_OPTIONS 
01E8 CB 9F 00197 31$: | PUSHAB SYSTEM DEST 
67 gi FB 0198 CALLS #1, CLISPRESENT 
59 0 D1 0019E CMPL = RO, R 
06 if O1Al BNEG 
01 Ab 1 ; OIA3 BISB2 #1, MOUNT_OPTIONS+1 
17 11 OO1A BRB 
58 50 p O1A9 32$:  CMPL R0 R11 
ge 13 OO1AC BEQL $ 
000000006 8F 6 p4 o185 CPL RO, #CLIS_ABSENT 
SA 8 D1 ols CMPL RO, R10 
04 12 001BA BNE 4 
01 Ab 1 BA o18¢ 338: BICB2 #1, MOUNT_OPTIONS+1 
O1F8 C8 9F 001CO 34$: | PUSHAB UNLOAD DESC 
7 1 FB 001C4 CALLS #1, CLISPRESENT 
9 D1 001¢7 CMPL «=soRO, RR 
13 OOICA Bea. «= 35§ 
58 1 001¢¢ CMPL = RO, R11 
6 12 OO1CE BNEO 36$ 
01 6 4 8A 00101 35$:  BICB2 #4, MOUNT_OPTIONS+1 
3 1 103 BRB 37§ 
SA p 107 36$: CMPL R0 R10 
4 10A EQ $ 
01 Ab 4 é 1p¢ BISB2 #4, MOUNT_OPTIONS+1 
0218 C8 9F OO1EO 37$: PUSHAB WRITE Dest 
7 1 FB OO1E4 CALLS #1, cf PRESENT 
9 ? 167 CMPL R R 
1EA BEQL § 
5B p 1EC CRPL R R11 
1€F BNEQ é 


Pa 31 
— (6) 


1369 
1374 
1376 


1377 
1378 


? 
TIMG 1b-se -1984 01:06:29 AX-11 Bliss-32 V4.0-742 Page 32 
yore 000 12-8eR~4882 93:28:97 FARGAT SkeSBocarine asses v 8) Hi 
01 Ab a8 F1 38$:  BI1SB2 #2, MOUNT_OPTIONS+1 3 1419 : 
F BRS 40§ : : 
5A } F? 398: CMPL RQ, R10 : 1420 : 
4 FA BNEG 86-408 : . 
01 Ab A OO1F BICB2 #2, MOUNT_OPTIONS+1 : ; 
01B4 F 40$:  PUSHAB REBUILD DESC + 1425 ; 
4 F CALLS #1, CLISPRESENT : : 
9 ? 7 CMPL RO R + 1427 : 
A BEaL «= 4 1§ : : 
5B C CMPL RO, R11 : : 
F BNE 4 : : 
07 Ab 80 F A 1 41$: B1CB2 ' 8, MOUNT_OPTIONS+7 + 1428 ; 
5A 9 9 18 428: RPL «RO. RIO : 1429 : 
g 9ei8 BNEG = 4 § : : 
07 Ab 80 Ff 1 BISB2 #128, MOUNT_OPTIONS+7 : ; 
8 OD 43$: PUSHL &8 + 1436 : 
67 1 &F CALLS #1, CLISPRESENT : ; 
03 Ab 01 1 0 F 7 INSV RO, #1, #1, MOUNT_OPTIONS+3 : : 
D 0 3 D BLBC ~=—s-—s«aRO, 4 4$ : ; 
60 Ab SF PUSHAB CLI_DESC > 1439 : 
3 DD PUSHL R ; é 
000000006 00 FB CALLS #2, CLISGET_VALUE F : 
0c Ab OF c PUSHAB ACCESS + 1440 : 
64 Ab pp f USHL  CLI_DESC+4 + 1441 
7 60 Ad 3C 42 MOVZWL chIWDESC -(SP) > 1440 
000000006 0 Q Fe 4 ALLS #3, LIBSCvT_DTB ; 
0D E 4p LBS RO 44$ ; 
0072805¢ af DD 3 PUSHL #7503964 + 1444 
000000006 00 1 FB 6 CALLS #1, LIBS$STOP ; 
30 AB 9F 00250 44$:  PUSHAB BIND bESC + 1449 
67 gi FB CALLS #1, CLISPRESEN ; 
05 Ab 01 00 0 F 6 NSV RO, #0, #1, MOUNT_OPTIONS+5 ; 
27 5 F LBC —S-—«&RO, 4 5$ : 
$0 A6 SF 0026C PUSHAB CL{_DESC + 1452 
AS OF oF PUSHAB BIND_DESC ; 
000000006 00 0 FB i CALLS #2, CLISGET_VALUE : 
08 00 6E . & 2c f vc #0, (SP), #0, #8, STRUCT_NAME 3 1453 
56 A 020 8F 80 Vw #526, STRUCT_NAME+2 > 1454 
: A6 OF PUSHAB CLI DESC > 1456 
4 AO OF PUSHAB STROCT_NAME ; 
000000006 00 02 FB CALLS #2, STRSCOPY_DX : 
44 AB OF 45$:  PUSHAB BLOCK DESC > 1461 
67 F CALLS #1, CCISPRESENT : 
01 Ab 01 7 0 F INSV RO, #7, #1, MOUNT_OPTIONS#+1 : 
49 F BLBC RO. 48 : 
60 A6 SF OO2A PUSHAB CL{I_DESC + 1464 
44 ABS 9F OO2A PUSHAB BLOCK DESC ; 
000000006 00 02 FB CALLS #2, CCISGET_VALUE ; 
18 Ab 9F OOCAF PUSHAB BLOCKS2 > 1465 
64 ON po B PUSHL  CLI_DESC+4 ; 1466 
43 60 Ad 3C 0028 MOVZWL ¢ IZDESC -(SP) > 146 
000000006 re B CALLS #3, : évT_DT1B : 
D E C BLES =séR ; 
0072805c 8F DD 00eC PUSHL #7503964 + 1469 
000000006 00 1 FB 002C CALLS #1, LIBSSTOP ; 


TIMG 16-50 -1 9 AX=11 BLis $-32 V4.0-742 Page 33 
Onn 000 1 ~$007 1382 9}: 9g: §3 MOUNT. SRC SMOUNTIMG.B3Z:1 8) 
QOOOFFFE  8F 18 AG pt 09 46S: CHL a #65534 : 1471 
0072817¢ 8F DD O00DA PUSHL #750 + 1473 
000000996 00 1 cB EQ CALLS #1, LIB ; 
A 1 8 £7 47$:  6iS62 #1. M DUNT sDPTIONS®2 + 1474 
54 as F OOCEB 48$:  PUSHAB CACHE Dest + 1480 
4 F EE CALLS i : ect PRESENT : 
9 0 Fi cMBL + 1482 
95 Ab 6 ra BISB2 # co ane xOPTIONS+5 + 1483 
0000v CF Fe FA CALLS # : 14 
: 1 FF BRB 5 “Ve ; 1480 
SA 0 D] 1 49$ cMPL R R10 > 14 
05 Ab 1360 $F is BISWw2 # ‘. 56. OUNT _OPTIONS+5 + 1491 
4 AB OF C 50$ PUSHAB COMM + 1497 
? 1 Ff F CALLS #1, pees ; 
66 01 3 0 F 1 INSV RO, #3 MOUNT _OPTIONS ; 
i 1 BLBC =o ; 
$0 A6 YF OO3IA PUSHAB CLI 31g : 1500 
4 AB OF 0 1D PUSHAB COMMENT DESC ; 
000000006 00 8 FB 9 CALLS #2, CLISGET Tovage : 
08 00 6E 2¢ 00 t moves #0. (SP), # COMMENT_STRING : 1501 
2A Ab 028 8F B80 ° E MOVW #526, COMMENT_STRING+2 : 1502 
: A6 OF PUSHAB CLI DESC + 1504 
A6 SF 00337 PUS COMRENT STRIN ; 
000000006 00 08 FB A CALLS #2, STRSCOPY_DX : 
0088 C8 OF 1 51$ PUSHAB DATA_DESC : 1509 
67 gi FB 5 CALLS #1, ELISPRESENT ; 
05 E9 00348 BLBC RO, : 
0000v CF 00 FB 0 : CALLS #0, DATACHECK_ACT : 1511 
0098 C8 OF 52$:  PUSHAB DENSITY DESC + 1515 
7 1 FB 00354 CALLS CLISPRESENT ; 
66 01 Q 0 F 7 INSV RO. #0, #1, MOUNT_OPTIONS F 
E C BLBC 3=E—.-«aRO,. 538 : 
0000v CF 00 FB F CALLS #0, DENSIT VeACT : 1517 
OOAC CB OF 53$ PUS Exfe NSION DE DES : 1521 
67 1 F CALLS #1, CLISPR RES SnT F 
02 A6 01 07 0 F INSV RO, # 1, MOUNT_OPTIONS+2 ; 
F BLBC 4$ ; 
60 Ad SF PUSHAB er desc + 1524 
OOAC f F PUS EXTENSION DESC : 
000000006 00 FB CALLS #2, CLISGET_VALUE ; 
34 AG OOF PUSHAB EXTENSION + 1525 
64 «COA po PUSHL  CLI_DESC+4 31 g 
re 60 Ad 3C mMOVZWL ¢ IZDESC -(SP) :1 
000000006 00 Fe CALLS ‘ . ie évT_DTB : 
cocoons on O*72005¢ fH BR Ba ov tstero Som 
O0EC 8 OF 54$:  PUSHAB InitIAL Ze DESC + 1535 
67 FB CALLS #1, ch PRESENT ; 
5 E BLBC RO, ; 
0000v CF FB CALLS #0. INITIALIZE_ACT ; 1537 
0158 ¢ OF 55$:  PUSHAB OVERRIDE DESC ~ : 1556 
67 FB CALLS #1, CLISPRESENT ; 


vou=000" ieee (1:08:99 ona RCSROUNTING.6535 1 — 


Ss 


oooov fe 80 Fe Sosee Bee BO. OVERRIDE_ACT $155 
016¢ oP Ci 56$ PUSHAB Bie DE : 13 ; 
7 F ¢ ALLS » CCISPRESENT : ; 
02 Ab 01 2 t } NSY 4 m -f #1, MOUNT_OPTIONS+2 : ; 
0000v CF a sf CALLS OWNER_UIC_ACT “ 1564 : 
0180 9F 00306 57$:  PUSHAB ric Dest ; 15 : 
67 re DA CALLS + SL ISPRE PRES : ; 
5 E D BLBC : ‘ 
0000v CF FB OO3E CALLS PROCESSOR_ACT + 1570 : 
0194 OF : 58$:  PUSHAB Bint ON DESC : 1574 : 
7 F CALLS #1, CLI PRESEN 3 : 
02 Ab 01 l 0 F i INsy me § “i, ROUNT _OPTIONS+#2 ; ; 
0000v CF FB OO3F CALLS PROTECTION_ACT : 1576 F 
01¢8 9F OOSFA 59S:  PUSHAB Re CorD DEot : 1580 : 
67 F FE CALLS #1, CLTSERESENT ; : 
04 A6 01 5 8 F INSV Ree # #1, MOUNT_OPTIONS+4 3 : 
46 . 7 BLBC 61§ F : 
60 A6 OF A PUS CLE_DESC + 1583 : 
01C f OF PISHAB RECOR D_DESC ; : 
000000006 00 FB 00411 CALLS CLISGET_ VALUE ; : 
50 AG OOF 00418 PUS RECORDS? : 15 : 
64 OCA po 18 PUSHL  CLI_DESC+4 : 1585 
43 60 A6 3C 0041 MOVZWL ¢ IZDESC =(SP) : 1584 
000000006 9 Fe CALLS #3, LIBSCVT_DTB : 
D E BLES =SséR $ ; 
0072805c 8F DD SHL #7503964 : 1588 
000000006 90 1 FB CALLS #1, LIBSST ; 
OOOOFFFE  8F 50 Ab D 60$ CMPL RE ORDS2, #65534 : 1590 
D 1B 0044 BLEQU ; 
0072817¢ 8F DD 0044 PUSHL #750425 + 1592 
000000006 1 FB 0044 CALLS #1, bles STOP ; 
0208 C8 OF 61$:  PUSHAB wiNoou 3 1597 
7 a. 4 CALLS #1, C TSPRESENT ; 
03 A6 01 : 0 F 7 Insy RO, os * , MOUNT_OPTIONS+3 ; 
60 A oF PUSHAB irs + 1600 
02 ¢ F PUSHAB en NOOU ; 
000000006 00 FB CALLS cits VALUE 3 
SC AG OOF PUS + 160 
64 OC po PUSHL CLI DE : 160 
7 60 Ag 3C i MOVZWL cul ie 4 sp) : 160 
000000006 Fe 8 CALLS : évT_bTB ; 
£ 7F BLBS ; 
000000006 00 settee ‘ 3 bs tk: 503964 op Sem 
be F 62$: RET + 1609 
3; Routine Size: 1168 bytes, Routine Base: SCODES + 0386 
_—_ 5 ES 


7 

TIAG .- ep- 2:06:29 AX-11 Bliss-32 V4.0-742 Pa 5 
yore 000 122888- 1383 93:28:87 = FAKGAT Sk igac3e Vae05ts2 ee 
: } } } ROUTINE BUILD_LIST (ITEM_CODE, ITEM_LENGTH, ITEM_ADDRESS, LIST_PTR) : NOVALUE = 
; 1612 1 !64 
$ } ! ! } Functional description: 
: : 13 ! This routine will build an item List entry from the input parameters. 
; iH i Input: 
: 1 1 i ITEM_ADDRESS : Address of item 
3 1 1! ITEM_CODE : Item | yelue 
3 5 1621 1! ITERLLENGTH : Length of item (in bytes) 
; : § ; ; LIST_PTR : Address of a pofnter to the end of the List 
2 1885 1 | anottete snout 
: $70 Weg JE <ebe 
3 +44 ; ’ : The List is assumed to be long enough. 
H 378 1859 1 ' Output: 
; 974 1650 1! 
3; 975 1631 1! LIST : points to new end of List 
3 378 1 ; 1! 
3; 97 1 1 ! Implict output: 
3 ore 16 1! 
; 9 1635 1! None. 
; 9 16 1! 
; 9 16 1! Side effects: 
3; 9 16 1! 
.; 9 16 1! None. 
; 9 bo 1! 
s 9 1641 1 ! Routine value: 
3; 9 1066 1! 
; 3 1804 1 | estes 
> 989 1645 1 
3 ; 1966 BEGIN ! Start of BUILD_ENTRY 
; $3 1668 LOCAL 
3 Ser 196 LIST : REF BBLOCK; 
: 995 1881 MACRO 
: oe 16 § LENGTH = 0, 0, 16, OZ, 
Py 16 CODE = ° ° ° i, 
3 1654 ADDRESS 2 - d. . OF, 
3 ; 19 5 UNUSED = 8, 0, 32, 02; 
31 16 $ LIST = ..LIST_PTR; ! Get address of start of entry 
71 : 16 8 LIST CLENGTHJ"= .1TEM_LENGTH; i Set the item Length 
31 165 LIST [CODE] = . ITEM CODE; ' Set the item code 
3 1 1969 LIST reps ty) =  ITEM_ADDRESS:; ' Set the item address 
: 1005 199 LIST CUNUSEDJ) = 0; ' Clear the unused portion 
3 : : § eLIST_PTR = .LIST + ITEM_SIZE; ! Set new end of List 
:1 1864 END; ! End of BUILD_ENTRY 


$3 


vou-000" HEcHet9Es GU:Q8:87 YASS. hisaabar thes, 


0000 00000 BUILD_LIST: 
WORD 


° Save not : 1619 

50 19 BC pd 00002 MOVL a@LIST_PTR, LIST > 165 

60 08 ac MOVW ITEM _CENGTH (LIST) + 1658 

02 A0 04 AC 50 O030r MOVW  ITEM-CODE, 2(LIST) + 1659 
04 A0 oc aC MOVL ITEM “ADDRESS, 4(LIST) + 1660 
08 Ad CLRL (LIST) + 1661 

10 BC 0c a0 BF 8017 MOVAB 12(RO), @LIST_PTR + 1662 
04 0001C RET + 1664 


; Routine Size: 29 bytes, Routine Base: SCODES + 0846 


ce ee eh cc el el el ee ee el ee ed ee 


i + ee ee 


mauNtnG ieeseo-t964 01:06:99 yaRott BL iga=s2 v4. 0.742 raoe i 


ROUTINE MAIN HANDLER (SIGNAL, MECHANISM) = 
' 


—_ 


SESS. 


PIP IPIPIPIPINIFIPININ IIIA II III) a a a a a a ed ed ed ee ed edd 


i FUNCTIONAL DESCRIPTION: 


SLs. 


This routine is the main level condition handler for the MOUNT 


ab ab a 4 8 tt at 


stack unwound, control passed to CLI 


' 
7 i 
: utility. it undoes anything that MOUNT has done so far and returns 
ie ; the condition code as status to MOUNT's caller (i.e., the CLI). 
75 1 
16 CALLING SEQUENCE: 
$ ; MAIN_HANDLER (ARG1, ARG2) 
4 4 i INPUT PARAMETERS: 
5 0 ! ARG1: address of signal array 
$ ° 1 } ARG2: address of mechanism array 
5 i IMPLICIT INPUTS: 
9 ¢ : NONE 
9 1 & i QUTPUT PARAMETERS: 
¢ 6 : NONE 
i IMPLICIT OUTPUTS: 
5 690 ! NONE 
691 ! 
$36 ' ROUTINE VALUE: 
6 | pan 
695 SIDE EFFECTS: 
i 
i 


FRRRLS 


WN —ODONOUS WOO 
SaNs 


So Se Se Ge Ge Ge Se Fe Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge GF Ss Ge Se Oe Ss 5 Ss Ss Se Se Se SF Se Ses Ssere 
ed ce ce a ce ee a ee ce ee a ee ee ee ee ee ee 8 ee ee ee ce ee ee ee ce ee ee ee ce ce ee ee ee ee ee ee ae ee ee ed ed 
NAA 


me ee ee me ee ee ee em ee ee ee ee ed ed ed od od od dd od = 


BEGIN 

e 1 
7 ‘ SIGNAL : REF BBLOCK, =! signal array 
A : MECHANISM : REF BBLOCK; =! mechanism array 
7 
7 ! Force the facility code to be mount and resignal the 
4 : error to be printed by the catch all handler. 

5 7 ‘ 

$ 71 IF .BBLOCK itor Cir oti 6 ANE STS$v_FAC_NO} EQL 0 
ar OR .BBLOCK CSIGNAL hits SIG_NAME}], STS$V_FAC_NOJ] EQL INITS_FACILITY 

28 ui? THEN BBLOCK CSIGNALCCHF C_SIG_NAMES, STSSO_FAC_NO} = MOUNS_FACILITY; 

: o? RETURN SS$_RESIGNAL; 

HS END; ! end of routine MAIN_HANDLER 


3; Routine Size: 


ieoseomt9ee o1:06:¢2  yauctt eLiee=sz v4-0c742 rove gt] 188 
0000 00000 MAIN_HANDLER: 

ae Escort i 

OFFF : A BITW $0), #4095 ; 

C BEQL § ; 
06 ad cHPZV 40 #12, 6(RO), #117 + 1712 
0c m 00000072 4 1A 18: INSV wits #0, #12, 6(RO) + 1713 
F 34 23: MOVZWL #2328, RO + 1715 
0029 RET : 1717 


42 bytes, Routine Base: SCODE$ + ia 


ed ed ee 


— 


—=O000 


pe 
Sm 


SS REE ST ts ee 


33 


FUPVSUSUSISISISISIN Ee BP PLL EE 


oO 


WO OOVNOULS WN" O DONOUSWN—Oo 


SELESFELSS 


So: 


wn 


SOUR 


POP OPROROPOROPOPOPOPOPOPONOPONOPONONONI INI II IIOP POPOPORO PUNO RUPONUNONONONUNUN = = 


SO 


uno 


Se Se Se Ge Se Se Ge Ge Se Se Se Ge Ge Se Ge Se Se Ge Ge Ge Se Ge Ge Be Ge Se Ge Ge Se Ge Ge Se Be Se Ge Se Se Sse Ge Se Se Ge Ge Se Se Se Se Se Se Ss Se Sse Ge Ge SESH Ss 

ee ee ee eo ee ee ee ee eS 
ee ew ee ee ee eS SL eee SS SY 
SNS 


ek ee ed a ed et ed a td a 4 a 4 — 9 = HD 


PD ee 8 etd ot st td td ht 


SOONOUSWN Oo 
ANNw 


rfosto-t964 1:06:99 yatcAT gt 


i Parameter oo gees error action rour jogs. Each routine is named corresponding 


'+ 
' 


! to its associated parameter of qualifier. Each routine does whatever 
! conversion is necessary and stores the parameter or qualifier value in 
the appropriate location in the output area. 


ROUTINE CACHE_ACT : NOVALUE = 
BEGIN 


EXTERNAL 
CACHE_STB : VECTOR £02. ! state table address 
CACHE _KTB : VECTOR (OJ; ! keyword table address 
EXTERNAL ROUTINE 
LIBSTPARSE; 


' 
: Initialize work area. 


EXT_CACHE = -1; ! Set value for EXTENT not seen 
FID_CACHE = -1; ' Set value for FILE_ID not seen 
QUO_CACHE = -1; ! Set value for QUOTA not seen 

! Parse the cache control options and set appropriate flags. 


weite CLISGET_VALUE ( CACHE_DESC, CLI_DESC ) DO 
TPARSE_BLOCKCTPASL_STRINGCNT] = .CLI_DESCCOSCSW_LENGTH); 
TPARSE-BLOCKCTPASL-STRINGPTR] = .CLI-DESCCDSCSA-POINTER); 
IF NOT LIBSTPARSE TTPARSE_BLOCK, CACRE_STB, CACRE_KTB) 


THEN 
ERR_EXIT (MOUNS_BADCACHE) ; 
END; 
Check to see if caching should be turned off: 


/CACHE=EXTENT:0 disables extent caching 
/CACHE=F ILE p31 disables FID yt 


/CACHE=QUOTA: disables quota cach 

10 gent CACHE EQL 0 ! /CACHE=EXTENT:0 
MOUNT_OPTIONS COPT_MOEXT_C] = 1; 

if -FID_CACHE EQL 1 ! /CACHE=FILE_ID:1 


MOUNT_OPTIONS COPT_NOFID_C) = 1; 
IF .QUO_CACHE EQL 0 ! /CACHE=QU0TA:0 


AX=11 BLiss-32 v4.0-742 Page 4 
MOUNT. SRESAOUNT ING Bost age 69 


THEN 
MOUNT_OPTIONS COPT_NOQUO_C) = 1; 


END; ! end of routine CACHE_ACT 


~EXTRN 
«EXTRN 


0004 00000 CACHE_ACT: 
9c -WORD 


Oooo: 
ooo 
WA DWS DOWOOVIM > 
= 
id 


8 
8 
000000006 


5¢ 


000000006 


rOoOmc 


RE DESC 
cTSceT_vALUE 


DESC, TPARSE_BLOCK+8 
Pesce. TPARSE_BLOCK+12 


CA 
TPARSE BLOCK 
H+ ¥ pe 


#7504324 
#1, LIBSSTOP 


XT_CACHE 


#128, MOUNT _OPTIONS+5 
FID_CACHE, #1 


#1, MOUNT_OPTIONS+6 
QU0_CACHE 


000000006 


IS FUN NINN 


SSSSFRMSIAUAS 


~ 
wr 


E9 


OOOOOSoooooooooocoecoo: 


EA 


7 
tad 


VEN FNVAUNG — MOWNOONWNON NMS 2H 


| 
| 
3 
! 
| 
0 


EA #2, MOUNT_OPTIONS+6 


Pe ae anne ee oO 
POM DVN" DWI OW FH NOOMOW MN MMMMn 
SSSSSSSSsssssss 

oooo 

w 

bad 

Pete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Ge Ge Fe Se Ge Se Ge Ge Se Ge Se Se 


3; Routine Size: 114 bytes, Routine Base: S$CODE$ + 088D 


3 


a 7 
16-Sep-1984 01:06:29 AX-11 Bligs-32 V4.0-742 
122808- 1388 93:08:43 MOUNT. SRCIMOUNTIMG.B325 1 
1 ROUTINE DATACHECK_AST : NOVALUE = 
BEGIN 
EXTERNAL . 
DATACHECK_STB : VECTOR fS3. ! state table address 
DATACHECK_KTB : VECTOR ; |! keyword table address 


EXTERNAL ryt 
LIBSTPARSE; 


LOCAL 
VALUE _FOUND; ' set when value present 


H Parse the DATACHECK options string. 


VALUE_FOUND = 0; 

wate CLISGET_VALUE (DATA_DESC, CLI_DESC) DO 
TPARSE_BLOCKETPASL_STRINGCNTJ = .CLI_DE 
TPARSE_BLOCKLTPASL STRINGPTR) = .CLI_DE INTERI; 
IF NOT LIBSTPARSE TTPARSE_BLOCK, DATAC ATACHECK_KTB) 


THEN 
ERR_EXIT (MOUNS_BADDATCHK) ; 
- VALUE_FOUND = 1; 


wWOO00000 


32 


de > > > > > >> PP | 
De Oe Oe Oe Oe Oe Oe Se Os Se Sees Se Se Se Se eses Se Se Seeee 
—t ee ee eee Lee 


Oooo 
wrn—o 


! If the qualifier /DATA_CHECK was specified with no value, then 
: WRITE data check is the default. Set the corresponding bit. 


IF VALUE _FOUND EQL 0 
MOUNT_OPTIONS COPT_WRITECHECK) = 1; 


oOo 


PADI BEBE PEE EE 
o oo 
ARUINAOCOBNIRAE 


et a ed med ds es od =) 2 2 ts 2 ts 2 = 2 4) 2 4 Le ss 3 YY 
AS SS tS Ss YY 6 tS st tt tt is 


Ono 
a a ee a ee ee ee ae a ee a a a dd 


Cad 2S Ooo GOA Ud) Oo o0 On Re Oo be 


Pa ee 


o 


END; ! end of routine DATACHECK_ACT 


eEXTRN DATACHECK_STB, DATACHECK_KTB 
000C 00000 DATACHECK pan 


; ; 
0000' ATA,DES 
000000006 90 ET_VALUE 


LB R 
14 4 TPARSE BLOCK+8 
18 OA L 


SHH 4 THPARSE.BLOCK +12 


53 0000° 


000000006 90 


W$r$eoct9Rs O1:06:%  YaRGAY Liga 32, v4.0-t42 


0072800C 


000000006 99 #7503884 


F 
i #1, LIBSSTOP 

1 #1, VALUE_FOUND 
BS BRB 
04 : VALUE _F OUND 
0 


AS AS #16, MOUNT_OPTIONS+4 


; Routine Size: 86 bytes, Routine Base: SCODES + O8FF 


Se Ge Se Se Se Se Ge Ge Ge Se Se Se Se ee Se Se Se Seas ee Se Se teseas S38 
ee ee ee SS eS SS 


8 
1b-se 1984 :06:29 AX-11 Bliss-32 V4.0-742 P 43 
1exgee=} 882 95:28:87 = HAN Biss ciarine Bese 296 at) 


ROUTINE DENSITY_ACT : NOVALUE = 


IF NOT ( LIBSCVT_DTB ( .CLI_DESC Coscsy LENGTH] 
CLY_DESC COSCSK_POINTERI, 


. ‘A 
: DENSITY ) 
ERR_EXIT (MOUNS_BADDENS) ; { 
SELECTONE .DENSITY OF 
SE 


THE 


i 00 : MOUNTIOPTIONS COPT~DENS~16 
OTHERWISE] : ERR_EXIT (MOUNS_BADDENS); 


TES; 


090909 0909 09 C908 INI NII NINN NSO 


Has : MOUNT_OPTIONS poet DENS 7? a 


a a a a a Sd 8 8 tt st 1 8 8 8 
a as tt ts 
ot ad Wd BW dD td bt te tt ttt 


1 
1 

BEGIN 

CLISGET_VALUE ( DENSITY_DESC, CLI_DESC ); 
1 


000C 00000 DENSITY_ACT: 
«WORD 


Save R2,R3 3: 1817 
53 000000006 00 9€ 900 MOVAB LIBSSTOP, R3 ; 
52 0000° cr 9 90 ROVAB CLI_DESC, R2 3 
0000' CF 9F $075 PUSHAB DENSITY DESC ; 
000000006 00 02 FB 0014 CALLS #2, CLISGET_VALUE : 
DO «6A2 «OF 0001B PUSHAB DENSITY : 
046 =A pp OO1E USHL  CLI_DESC+4 : 
7E 62 3C 00021 MOVZWL CLIDESC, -(SP) : 
000000006 06 F 4 ALLS i | ei 3 
00728014 BF OD PUSHL #7503892 : 
3 a F CALLS #1, LIB$STOP ; 
50 D0 «A2 OD 1$ MOVL DENSITY, RO : 
00000320 8F p CMPL y #806 2 
AO A2 88 BISB2 #2, MOUNT_OPTIONS : 
00000640 8F és if CPL R0. #1600 ; 
AS A2 8 88 B1$B2 3. MOUNT_OPTIONS+5 ; 
0000186A 8F ; D4 CRPL te #6250 : 
00728014 8F DD PUSHL @# 503892 ; 
63 1 FB CALLS #1, LIBSSTOP 


maUNT NG y$egeoctges 1:06:22 yanctt eLiggcs2 v4, 0-742_ Page th 
; Routine Size: 106 bytes, Routine Base: SCODE$ + 0955 


; 1188 1840 1 


1anSep=1986 12:45:81 


ROUTINE GET_DEVICE : NOVALUE = 

BEGIN 

DEVICE_COUNT = 0; 

ALE CLISGET_VALUE ( SDESCRIPTOR('DEVICES'), CLI_DESC ) 


4 st SS 


Fd td a dt Ss dd 4 tg 2) 4 2) 2 ts —) 2 2 

++ I IOOOOOOOOOO DOO 7) 

UN —ODHSNF ARGO OOo GRR IS 

ee ee De ed ed td ed od ed ed dd dd wd dd dd 
74 


BEGIN 


IND 
DEVICE_DESC = DEVICE_STRING C.DEVICE_COUNT * 2] : S$BBLOCK; 
a GEQ DEVMAX 
ERR_EXIT ( MOUNS_MAXDEV ); 


CHSFILL ( 0. DSCSC_S_BLN Device DESC ); 
DEVICE_D pest t poscse. <DTYPE] = DSCSR_DTYPE_T; 
DEVICE SDE DSCSB°CLASSJ = DSCSK°CLASS_D; 
1 DX X_( DEVICE DESC, CLI_DESC ); 
D DEVICE COUNT + 1; 


peyice. COUNT = 
! of routine GET_DEVICE 


ss 


-PSECT SPLITS,NOWRT,NOEXE,2 


53 45 43 49 56 45 44 He P.ACN: wot} jpeusces’ 


4 4 4 P.ACM: LONG 7 
000000° -ADDRESS P.ACN 


-PSECT SCODES,NOWRT,2 


OOFC 00000 GET_DEVICE: 


R 
E 
E 
E 
im VALUE 
E 
E 
E 
0 
I 
s 


WORD Save R2 
57 VAB DEVICE_ 
CLRL —sCODEIC 
PUSHAB CLI_D scoN 
PUS P.ACM 
000000006 9 CALLS #2, ' 
BLEC —E—s@RO, 
6 ASHL © #1.._~ DEVIC 
; MOVAL DEVICE_ 
| ert : nen 
PUSHL #7506 0 
000000006 00 CALLS \e B 
00 6€ mOVC P 
02 Ab MOVW #526, 2 
PUSHAB ch bES 
PUSHL 


oUMT ue i oR6,R7 


nan 1$o$eoc19B 90:06:87 AGM ehigaas ve, 03742, rage Mf 
000000006 00 ze Be a ie Deve COUNT Dx : 1 


; Routine Size: 84 bytes, Routine Base: SCODES + O9BF 


—> Ft 


NAMEN ODONOWN 


wr 


wu 


Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Se Se Se ee Se See Ge Seeseas 
Dab a ae ch a ed et ad Ss od a St td Lt 
a 8 Da Se SS A 
59 09 GDC : FOooo 


1 ROUTINE GET_LABEL : NOVALUE = 
BEGIN 
LABEL_COUNT = 0; 
urls CLISGET_VALUE ( SDESCRIPTOR(*VOLUMES'), CLI_DESC ) 


BEGIN 


IND ABEL _DESC = LABEL_STRING C.LABEL_COUNT * 2] : SBBLOCK; 
A eeeetnaaele GEQ LABMAX 

ERR_EXIT ( MOUNS_MAXLAB ); 

CHSFILL ( 0, DSCSC_S_ BLN, LABE 


DESC ); 
LABEL_DESC [DSCSB_BYYPE) = DSCSR_DTYPE 1; 
itt. DESC COSCS$B-CLASS . DSCSK_CLASS_D; 
STRSCOPY Dx ( (ABEL »_CLI_DESC ); 
ey _COONT =. C T+ T; 
: ! of routine GET_LABEL 


-PSECT SPLITS,NOWRT,NOEXE,2 


53 45 4D 55 4C 4F 56 ; P.ACP: att pen 


gon000e7 99 


40 P.ACO: <LONG 7 
44 »ADDRESS P.ACP 


.PSECT S$CODES,NOWRT,2 
a oe LABELS ap Say ¢ R R3,R4,R5,R6,R7 
e Vv 
MOVAB count, R7 * 
CLRL LABEL” 


9 18: PUSHAB (CLI best 


UU 
i PUSHAB BA 
ii CALLS qo. VALUE 
Bh 
DC ROVAL CAEL “SHATWOLROS. R R6 
JU CMPL L-COUNT e 
D OC BLSS 
oooo00s 99 POPE Bt RR box CALS #1 CIBSSTOP 
ee 2C 00087 28: ROves 0; <SP). #0, #8, (RE) 
\) 
' 


“< we FP 


Tatts 
44+ 


MOVW #526 2(R6) 
CLI_bESC 


1ec$e3Be QN:24:8?  YABGLY SAUSasdE Vaal 


roe of 


nay] gaG i$rfeen19ge O1:06:g? yarns eLigsnsz va. 08742 Page ft 


v0 


{ 
$s 1 
s | 
s | 
s | 
$s 1 
s | 
$ | 
s | 
s 1 
$1 
s 1 
3 1 
s | 
$s 1 
$s 1 
$ | 
$1 
31 
5 | 
$ 1 
3 1 
3 1 
s | 
$1 
s { 
s | 
: 1 
3 1 
s 1 

1 
3 1 
3 1 
3 1 
$1 
3 1 
3 1 
3 1 


000000006 00 06 f 4 CALLS #2, STRSCOPY_DX 3 
p 2 INCL LABEL_COUNT :1 
B5 BRB 1$ 3 1 
04 00054 3$ RET 7 
3; Routine Size: 85 bytes, Routine Base: SCODES + 0A13 


é H 8 

vou 000. 1e=$3p-1984 1:48:57 EAOUNT. SRESROUNTIMG-BSes1 fe 
1 ROUTINE GET_LOG_NAME: NOVALUE = 

91g BEGIN 

9 

9 


LOCAL 
P; ! string scan pointer 


: Copy the logical name descriptor 


SSN OP OPTIONS COPT 06 NAME) = 1; 
cus it ( i. S($C~ RCN. koe NAME ); 
p$c$B_dTY DSCSR_DTYPE_ 1; 


35 Fr eet Ue ( SDESCRIPTOR(*LOGNAMES’), CLI_DESC ) 
5 toe “NAME DSCSB> CLASe DSC$K"CLASS_ 


308 STRSCOPY_DX (¢ LOG_NAME, “ei DESC ); ~ 
238 : If logical name is greater than maximum size, return error. 


1F_.LOG_NAME CDSCSW_LENGTH] GTR (LOGSC_NAMLENGTH = 1) 
ERR_EXIT ( MOUNS_LOGNAME ); 


— + yl a trailing of embedded colon. If found, use string preceding 
e colon. 
i 


0 
& 
8 P = CHSFIND_CH ( .LOG_NAME CDSC$W_LENGTH], .LOG_NAME CDSCSA_POINTER], ':' ); 
4 
5 


PPA 
SOSUETDFER AS SeVoun mun OOo NO 


IF NOT CHSFAIL (.P) 


END LOG_NAME CDSCS$W_LENGTH] = .P = .LOG_NAME CDSCSA_POINTER]; 


END; ! end of routine LOG_NAME_ACT 


SAN O 
—_ 


Be Se Se Se Ge Se Se Se Se oe Se Se Se Ge SH Ss Se FH Se Se Ss Se Se Se Se Se Se Se Ge Se Ge Se Se Se tease 
a a at at at a Sh sh 2 SS Ss 
MF wn 


ht a ts 8 a tt td td a tt 


OWODODDOODOOOOOOO0O0OO 


Mororororoern 


N 
o 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
53 45 4D 41 4E 47 4F 4 «ASCII \LOGNAMES\ ; 
OP: Aca: 


$0080000" “ADDRESS. P.ACR ; 


-PSECT SCODES,NOWRT,2 
007C 00000 GET_LOG_NAME: 


-WORD Save R2,R3,R4,R5,R6 3; 1889 
56 0000" CF 9€ 3 MOVAB  LOG_NAME, R6 ; 
F PUSHAB CLI~DESC : 1899 
00 fF OF A PUSHAB P,ACQ : 
000000006 09 3 FB CALLS a, GL ISGET_VALUE 
4 k BLBC =—Os«RO,, ; 


33 


mae RG ibseoct9ge 01:06:27 yauclt gtingasz v4. 0-742 Page $0 
18 


0B 6 8 BISB2 #32, MOUNT_OPTIONS+3 : 190 
08 00 6E ge piseg $8 (SP), 1, #8, LOG_NAME > 190 
02 Ab 0206 F 80 MOVW #526, LOG_NAME+2 + 1904 
68 =A oF 8 PUSHAB ¢ 1_bESC : 1906 
000000006 90 FB D CALLS #2, STRSCOPY_DX ; 
F 8 CMPW 6_NAME, #63 + 1911 
D 168 BLEQU 3 
0072807¢ BF DD 9 PUSHL #750399 > 1913 
000000006 00 1 §B CALLS HI LIBS$STOP ; 
B6 A 3A 00046 1$ LOCC #58, LOG_NAME, @LOG_NAME+4 > 1918 
é 2 48 BNEQ 2 ; 
D D CLRL sR ; 
1D 4F 2% STL =P + 1920 
5 1 5 BEQL «= 3$ F 
66 51 06 AO A 2 SUBW3  LOG_NAME+4, P, LOG_NAME : 1922 
04 00058 3$: RET : 19 


; Routine Size: 89 bytes, Routine Base: S$CODES + 0A68 


Pa on a a oo oo on a oe ee oe ee ee ee ee eS ee Oe OO Oe ee ee ee ee ee ee ee ee ee ee ee a SS ae SS a 


° 
e 
© 
e 
o 
e 
° 
e 
. 
o 
e 
e 
> 
e 
. 
o 
o 
° 
> 
o 
. 
e 
. 
e 
. 
6 
. 
e 
e 
° 
° 
© 
e 
° 
° 
° 
o 
° 
o 
. 
e 
. 
e 
. 
o 
° 
e 
° 
e 
° 
e 
o 
e 
. 
e 
. 
° 
. 
oe 
© 
e 
° 
e 
e 
s 
. 
° 
° 
e 
. 
e 
° 
e 
. 
o 
° 
o 
. 
a 
° 
e 
. 
o 
. 
e 
. 
e 
° 
o 
° 
o 
. 
o 
e 
e 
. 
o 
. 
e 
© 
e 
. 
o 
7 
e 
° 
° 
. 
e 
° 
e 
° 
a 


33 


ybesenctgee 01:06:29 yanett atinga32 v4.0-742. Page $1 


; } } 1 ROUTINE INITIALIZE_ACT : NOVALUE = 
; i i BEGIN ! 
:1 1 EXTERNAL 
3 1 1 INITIALIZE. S18 : VECTOR 02. ' state table address | 
3 ; ¢ 13 INITIALIZE-KTB : VECTOR ; ! keyword table address | 
:1 1 EXTERNAL ROUTINE 
; i 19 5 LIBSTPARSE; 
: | 13 Parse the INITIALIZE string and set appropriate flags. } 
: 1291 19 $ , 
; ! § eo WHILE CLISGET_VALUE ( INITIALIZE_DESC, CLI_DESC ) DO 
: 129% 19¢ TPARSE_BLOCKCTPASL_STRINGCNT) = .CLI_DESCCOSCS$W_LENGTHI: 1 
3 1295 194 TPARSE BLOCKLTPASL_STRINGPTR -CLI-DESCCDSCSA_ BOINTERS: 

; ! 1966 IF Nor “LIBSTPARSE TTPARSE "BLOCK, INITIALIZE_STB, PONI TIAL ZE_KTB) 

> 1298 194 RR_EXIT (MOUNS NIT); 

3: 1299 1909 END; re ae 

3:1 1948 

3 1501 194 END; 


eEXTRN INITIALIZE_STB, INITIALIZE _KTB 
0004 00000 INITIALIZE ~b 


-_ 4+ m» ss 2. 4 4 «s s 4 8 +88 2 8 2 8 5 2 2 2 so so 2 os os 2 


w5 Save R2 3: 1926 
52 0000" ‘ v — R2 : 
PUSHL R ; 
0000° s INITIALIZE_DESC : 
000000006 90 CALLS n, cLISG GET_VALUE F 
1 LBC —Os«éiR ; 
14 ng é MOVZWL CLI_DESC, TPARSE_BLOCK+8 F 
18 A VL CLITDESC44, TPARSE_BLOCK+12 ; 
90000 06 ; PUS INITIALIZE. KTB : 
00006 PUSHAB INITIALIZE~STB : 
Cc (OA PUSHAB TPARSE BLOCK ; 
000000006 00 CALLS #3, t BSTPARSE : 
CE 40728226 Bes. ee S0ac20 : 
000000006 00 CALLS #1, LIBSSTOP : 
B BRB 1$ : 
RET : 

; Routine Size: 73 bytes, Routine Base: S$CODE$ + OAC1 } 


Kk 8 
VOs-000" 1e-Sep- tobe 13:05:81 EROUNT. SRCSAOUNTIRG. 85371 Page ag 
ROUTINE JOURNAL.ACT : NOVALUE = 


LITERAL 
MOUNTSK_DEF _JRNL_RECORD_SIZE = 600; ! Default value for max record size 


EXTERNAL 
JOURNAL _STB : VECTOR £83: ! state table address 
JOURNAL-KTB : VECTOR ! keyword table address 


EXTERNAL ROUTINE 
LIBSTPARSE; 


Parse the journal control options and set appropriate flags. 

MOUNT_OPTIONS COPT_NOJRNL = 0; 

ete CLISGET_VALUE ( JOURNAL_DESC, CLI_DESC ) DO 
TPARSE_BLOCKCTPASL “STRINGCHT = «Sh ~PESe DSC$W_LENGTH); 
TPARSE BLOCKLTPASL_-STRINGPT CEDSCSA~POINTER); 
IF NOT LIBSTPARSE TTPARSE PaLOck, JOURNAL’ UST JOURNAL_KTB) 


EN 
ERR_EXIT (MOUNS_BADJRNL) ; 


S38 


00000000 
NOUS O 


RSSSEEEESS 


NNN 


so 
UEPWN Oo NOUSWN—O 


* this is a MOUNT/JOURNAL=NEWFILE, then make 
Otherwise, ensure that no values were specifi 
keywords. 


‘oh -MOUNT_OPTIONS COPT_NEWJRNLJ 


sure "Trad SIZE has a value. 
ed for journal creation 


E 
' 
i 
i 
i 
i 
T 


VEN O CONOUNE WN OOOO 


BEGIN 
IF .JRNL_RECORD_SIZE EQL 0 
JRNL_RECORD_SIZE = MOUNTSK_DEF _JRNL_RECORD_SIZE 


4 ELSE IF i. “7 SIZE NEQ 0) oR (. JRWL_RECORD_SIZE NEQ 0) OR (.JRNL_EXTEND NEQ 0) 
THEN (.JRAL_QUOTA NEQ 0)) 


ERR_EXIT (MOUNS_BADJRNL) ; 
END; ! end of routine JOURNAL_ACT 


DODODOOOODOODOODONO0O 


332 


Be Se Se Se Ge Se Ge Se Se Ge Se Ge Se Gs Ge Se SF Se Ge Bs Se Ge Se SS Se SF Ss Ss Ss SF SF Ss Ss Ss Se Se Ss Oe SE SeSseee 
aa a a kk ed at ak at at tk td a “a Sh 2 a as 9 1 Lt 
ee ce ce a ce ec em ce ee ee ee ce ae ce ce ce ed ce me ce ee ee a ee ed ee ed eed od 


MEW oO 


33 


sEXTRN JOURNAL_STB, JOURNAL_KTB 


a - - ss 8 ss 2s 2s 6 88 68888 8 8 oD 8 od oe ek 


000C 00000 JOURNAL_ACT: 
.WORD Sav : 1950 
box $s E ROVAB  LIBSSTOPS RS 
E VAR JRNL RECORD D_SIZE, R2 ; 
A BICB we MOUNT OPT IONS+6 > 196 
oobh: AF oe Sarg "8! | PUSHAR Chl este Bie 
000000006 s ; FB OOOTA CALLS ie. GLISGEY VALUE ; 
21 BLEC =O «RO, ; 


nau RG eaten O1:06:3?  YAKHY Oh inna 32_v4.05742, Page 3 


) 
A A2 3 MOVZWL CLI_DESC, TPARSE_BLOCK+8 : 1969 
2 AS 4 b MOVL eL I: apesté 4, TPARSE_BLOCK+12 + 1970 
99000 0 F PUSHAB + 1971 
ND OF OOO8A PUSHAB JouMMAL au 
000000006 00 re D CALLS nS F Bet Pakse ; 
00728214 &F ODD t} PUSHL #7504404 + 1973 
3 1 FB CALLS #1, LIBSSTOP : 
ci 1 BRB 1$° : 1967 
OA (3 A2 € 2$: BLBC | MOUNT_OPTIONS+7, 3$ > 19 Q 
: p Ist RNL_RECORD_S1ZE : 198 
62 0258 «BF 3¢ A MOVZWL #600, JRNL_RECORD_SIZE + 1985 
4 F RET : 198 
FC A2 OD 3$: TSTL § JRNL_SIZE : 198 
E 1 0 BNEG ; 
D 6 TSTL § JRNL_RECORD_SIZE : 
A 1 06 BNEG 4$ ; 
F8 Ag D 9 TSTL § JRNL_EXTEND ; 
05 1 00 C BNEG 4$ F 
Fe AZ OD : TSTL § JRNL_QUOTA > 1988 
ay 1 00 BEQL $ 
00728214 8F DD 00073 4$: PUSHL #7504404 : 1990 
3 01 FB 00079 CALLS #1, LIBSSTOP ; 
04 0007C 5$: RET > 1992 


; Routine Size: 125 bytes, Routine Base: S$CODE$ + OBOA 


33 


ee ee ee ee ee ee ee a i SS SS 


De Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Ge Se Ge Se Se Ge Gets Fe Fe Ge Ge Ge FO Se Se Se Ge Ge Ge Ge Ge Se Se Ge Se Se See See Se Se Se Sess Se Se Se Seas 


a a 


m 8 
18805-1986 92:08:81 EROUNT. SRCSROUNTING- 85251 Poe a9} 


* S83 


1 ROUTINE OVERRIDE_ACT : NOVALUE = 
BEGIN 
99 


EXTERNAL 
OVERRIDE_ST : VECTOR £83. ! state table address 
OVERRIDE_KT : VECTOR ; ! keyword table address 


EXTERNAL ROUTINE 
LIBSTPARSE; 


} Parse the OVERRIDE string and set appropriate flags. 


Wrn—o 


waite CLISGET_VALUE ( OVERRIDE_DESC, CLI_DESC ) DO 
TPARSE_BLOCK{CTPASL_STRINGCNT) = .CLI_DESCCOSCSW_LENGTHI; 
TPARSE-BLOCKLTPASL_STRINGPTR] = .CLI-DESCLDSCSA-POINTERI; 
IF NOT LIBSTPARSE TTPARSE_BLOCK, OVERRIDE_STB, OVERRIDE_KTB) 


N 
ERR_EXIT (MOUNS_BADOVR) ; 


Ot a tn at 8 tS tt te tt 


So eee 
MEUM OO 0ONOu 


! end of routine OVERRIDE_ACT 


~EXTRN OVERRIDE_STB, OVERRIDE_KTB 
0004 00000 SvEnntee ti 


9E 00008 
DD 00007 1$: 
9F 00009 


F 
dO 
oF 


oF 
oF 


52 0000° 
0000" 


000000006 99 


TPARSE BLOCK+8 
g PARSE BLOCK+12 


14 
18 
000000006 


0072816C 
000000006 


R= NMOWVIOONMNVON IN 


—B2BVwWe“OQOOOrDWBZOWOw 


DOWON1C FP OOFQRMOOMMOM 


; Routine Size: 73 bytes, Routine Base: $CODE$ 


y 8 
youn O00" 1oxS0R=1382 93:28:87 HAMTAT Shee oae Vee S32, Page 43 


' Ss 


: VECTOR £0}. ! state table address 
: VECTOR : 


UIC_STB 
UIC_KTB ! keyword table address 
ROUT 


INE 
LIBSTPARSE; 


§ 1 

5 

8 = : Parse the VIC string and store it in the owner UIC longword. 
0 

| | 

4 

$ ; 

9 

0 1 


WHILE CLISGET_VALUE ( OWNER_DESC, CLI_DESC ) DO 


Be Se Ge Se Se Se Se Se Se OF Se SF SF Ss HSE SS SH Ss Se SE SESEEse 
a BR aD a Dd et A a nt ds 


PARSE BLOCK TPASL LSTRINGCNT] = .CLI_DESCCOSCS$W_LENGTH); 
TPARSE BLOCKLTPASL-STRINGPTR] = .CLI-DESCLDSCSA-POINTERI; 
8 IF NOT” LIBSTPARSE CTPARSE "BLOCK, UIC“STB, UIC_KTB) 
90 ERR_EXIT (MOUNS_BADUIC); 
3 S END; 
i 0 OWNER_UIC = .UIC; 
95 04 END; ! end of routine OWNER_UIC_ACT 


.EXTRN UIC_STB, UIC_KTB 
0004 00000 OWNER_UIC_ACT: 


© 
e 
- 
a 
. 
e 
° 
, 
. 
2 
. 
e 
° 
e 
. 
° 
. 
° 
* 
e 
o 
° 
a 
° 
. 
i 
° 
° 
. 
o 
” 
° 
7 
e 
° 
o 
. 
° 
. 
- 
. 
eo 
° 
e 
. 
e 
o 
e 
. 
e 
. 
o 
a 
o 
. 
e 
. 
a 
° 
e 
. 
e 
. 
o 
. 
° 
o 
e 
. 
e 
. 
e 
° 
s 
. 
o 


-@ORD Save R2 : 2016 
52 0000' ce 9 i 0 a0 MOVAB Re DESC, R2 : 
2 1$: PUSHL R : 2029 
0000' CF USHAB DESC : 
000000006 99 g FB 00 i LLS ie. “¢ GET_VALUE 3 
1 : 14 BLBC Ooi ; 
14 6 ¢ 17 MOVZWL CLI_DESC, TPARSE_BLOCK+8 : 2031 
18 4 A p 18 VL CLITDESC44, TPARSE_BLOCK+12 ; 30 : 
9000 06 0 F PUSHAB UIC"KTB : 203 
00000006 3 6 PUSHAB UIC"STB ; 
OC Ae OF C PUSHAB TPARSE BLOCK : 
000000006 00 FB F CALLS ng. nee: 
00728024 8F ODD PUSHL #7503908 : 2035 
000000006 00 1 FB F CALLS #1, LIBSSTOP F 
BF 1 a6 BRB 1$ ; 29 
EB A2 30 A2 00 00048 28: MOVL UIC, OWNER_UIC : 2038 
4 00040 RET 3 2040 


3; Routine Size: 78 bytes, Routine Base: S$CODE$ + 0BD0 


9 
maUNT NG 1B-Se0-1984 1:06:29 YaN-tt BLige=52_v4.0-742, Page 56 


ROUTINE PROCESSOR_ACT : NOVALUE = 
BEGIN 


_—, 


WA 


OBNAARUN[OSRVE AR WV ODO 


EXTERNAL 

PROCESSOR_STB : VECTOR £02. ! state table address 
PROCESSOR_KTB : VECTOR ; ! keyword table address 
UT INE 


EXTERNAL ROUT 
LIBSTPARSE; 


; Parse the PROCESSOR switch options (leaving values and bits set). 

CLISGET VALUE ( PROCESSOR DESC, CLI_DESC ) 

TPARSE_BLOCKETPASL_STRINGCNT) = “CLT DESCE C$W_LENGTH; 

TPARSE_BLOCKLTPASL_STRINGPTR] = .CLI_DESC CSA-POINTERI; 

IF wor LIBSTPARSE (TPARSE_BLOCK, PROCESSOR_STB, PROCESSOR_KTB) 
ERR_EXIT (MOUNS_BADACP) ; 

END; ! end of routine PROCESSOR_ACT 


Se Ge Ge ee G6 Ge Ge Ge Ge Se ee Se Ge Ge Sees Ge Se Se Sess tee 
ee ee ed ed nd ed ed SS oe td SS 2d 8 
TS a ee ee ee 


SRSSSSSSSSSSRARRERREERE 


PAERLAEAQREDAAA NII 


WANS OONOUNLS WN" QVONAOWUS wn 


rr 


-EXTRN PROCESSOR_STB, PROCESSOR_KTB 
0004 00000 PROCESSOR_ACT: 
.@ORD 


Save R2 3; 2042 
52 0000' gf 9E 0000 MOVAB CLI_DESC, R2 3 

2 dD 0000 PUSHL ; 2055 
0000' CF 9F 00009 PUSHAB PROCESSOR_DESC : 
000000006 00 02 FB 0000D CALLS #2, CLISGET_VALU : 

14 ag 62 3¢ : 14 MOVZWL CLI_DESC, TPARSE BLOCK+8 > 2056 

18 #A O% A2 00 18 OVL CLI-DESC+4, TPARSE_BLOCK+12 : 2057 

44444 86 8 9F 0001 PUSHAB PROTESSOR_KTB 3; 2059 
000009 6 9F 00 HAB PROCESSOR-STB : 
C A2 9F 00 PUSHAB TPARSE BLOCK : 
0060000006 90 9 4 09 f att #3, Tee 5 

0072815C 4 0D PUSHL 04220 3; 2061 
000000006 00 1 FB 00 ¢ CALLS #1, LIBSSTOP 3 

04 00043 1$ RET 3: 2063 

3; Routine Size: 68 bytes, Routine Base: SCODES + OCIE 
— aes iimieaa taal aman mea mesnnaeaiae: il leat 
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; 16 1 : } ROUTINE PROTECTION_ACT : NOVALUE = 

: 14 § & ¢ BEGIN 

> 1405 EXTERNAL 

3: 14 § PROTECTION_STB : VECTOR £82. ! state table address 

: 1 f PROTECTION_KTB : VECTOR ; ! keyword table address 

: 14 $ 7 EXTERNAL ROUTINE 

; 12 , LIBSTPARSE; 

: 14 § ie ! Parse the PROTECTION qua} trier string storing the binary protection. 
: 1? £8 : Complement thereafter, since the parser produces the complement. 

: 1435 7 i 

: 1? 23 weit CLISGET_VALUE ( PROTECTION_DESC, CLI_DESC ) DO 

: 14 081 Fees ROCK E TPASL os TRineceT) = .CLI_DESCCOSC$W_LENGTH); 

3 1439 0 § TPARSE_BLOCKLTPASL_STRINGPTR] = .CLI_DESC DSC$A~POINTER); 

; 1460 9 ; IF NOT LIBSTPARSE TTPARSE_BLOCK, PROTECTION _STB, PROTECTION_KTB) 

; 1448 085 ERR_EXIT (MOUNS_BADPRO) ; 

3 144 oa6 END; 

: 14446 08 

H ret 43 PROTECTION <0, 16> = NOT .PROTECTION <0, 16>; 

: lee? 090 1 END; ! end of routine PROTECTICN_ACT 


-EXTRN PROTECTION_STB, PROTECTION_KTB 


0004 00000 PROTECTION ACT: 
-WORD Save R2 
52 0000" CF 9€ 9002 MOVAB CLI_DESC, R2 
52 DD 00007 18: PUSHL R 
0000' CF 9F 9009 PUSHAB PROTECTION_DESC 
000000006 90 ve FB 900 CALLS #2, SLISGET_VALUE 
14 Ag 6 17 MOVZWL CLI_DESC, TPARSE BLOCK+8 
18 «OA 04 A 06 18 VL CLIDESC#+4, TPARSE_BLOCK+12 
990000 06 0 F PUSHAB PROTECTION.KTB 
000 006 3 6 PUSHAB PROTEST "IONSTB 
com = ¢ PUSHAB TPARSE BLOCK 
000000006 00 FB F CALLS ‘ : BSTPARSE 
0072801C 8F DD PUSHL #7503900 
000000006 00 01 Fe F CALLS fl. LIBS$STOP 
EC A2 EC A2 Be ‘8 2s: NCOMY PROTECTION, PROTECTION 


3; Routine Size: 78 bytes, Routine Base: S$CODE$ + 0C62 


ree 


49 


SES33 


FD et et et et et ee ee 
= POPRIPOPUR) — = = 


BOI AR IO} 


Win 


wm 


eb ad ad a a 8 a HS A) 8 SS 2 lt 


FARGO 
ke ed a ad ed 
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+ 


i 

} TPARSE action routines for the following TPARSE tables. 
* 

i 


Clear the "NEW JOURNAL FILE" option bit. (We just saw NONEWFILE.) 
ROUTINE CLEAR_NEWJRNL = 

BEGIN 

MOUNT OPTIONS COPT_NEWJRNL] = 0; 

RETURN 1; 

END; 


0000 00000 CLEAR_NEWJRNL: 
«WORD 


i SONT OF 
0000' gf 01 8A 0000 BI1CB2 — OPTIONS+7 
0 01 bO0 0000 MOVL 
04 OO0O0A 


11 bytes, Routine Base: S$CODE$ + 0CBO 


MOUNT. SRC JMOUNTIMG.B32;1 


moO RG HEo$eoct9Bs 01:06:29 YaMcNt at fea=52 v4. 05742_ rose 5] | 


yx 


Store ACP string (either device name or file name). 


1! 
1! 
ii 
1 ROUTINE GET_ACP_NAME = 
BEGIN 
LOCAL 
ACP_DESC : ®6BLOCK CDSCS$C_S_BLNI; 
IF .CONTEXTCTPASL TORENCNT] GTR 20 
THEN ERR_EXIT (MOONS_ACPNAME) ; 


a 


SAN AP UO OD 


ak 8 tt 


MEUM OO OONAUNES UR OOONAUNLS UNO 


TPARSE_ARGS (CONTEXT); 

Initialize local descriptor and load values 
CHSFILL (0 paces $ eGln. ace niet 

vi ~ Pest ¢ fost $3 DTP DSCSR 


ME winty 


DSC$W~ Pr rctay = .¢ CONTERT erties TOKENCNT); 
ACP ~DESe DSCSA_ BOINTER] = CONTEXT CTPASC C_TOKENPTRI; 


{ Now, move values to the text descriptor. We need to use a Bh Sa 
i acp descriptor, because the CLI_DESC contains the keyword ' 
when that option is used. 


Dek le ee Dee De Ie de De ede _I__ 


CS vee’ AC 
TYP 4t =D 
<CLASS) = D 
<STRING, AC 


CHSFILL 0 
RI 


LFSEANVSS 


RETURN 13 
END; ! end of routine GET_ACP_NAME 


Be Gers Ge Se Se Se Se Ss Se SF Ge Ge Se Ge Se Ge Ss Se Se Se Se Ge Se Se Se Se See Sees tee 
nob ad 8 ed 8 8 8 8 8 at a a a a 8 8 
bP at a te nt te 


SSeS 
2832 


003C 00000 GET_ACP_NAME: 


,WORD Save R2,R3,R4,R5 
5E C8 SUBL2 #8, S$ 
14 10 aC CAEL 16¢CONTEXT), #20 
00728144 $F PUSHL #750419 
000000006 1 CALL At IBSSTOP 
08 00 moves #0. (SP), #0, #8, ACP_DESC 
02 AE ii Move ACP DESC#2, 
6 19 AC 0 MOV Te tcONTERT) P_DESC 
04 AE 1 ac MOVL } (CONTEXT) ACP “DESC+4 
08 00 6E " 90 mOVCS #0, (SP), #6, #87 ACP_STRING 
0000" CF eit iF 0 Vw #526, ACP_STRING+#2 
E PUSHL 
0000° CF 06 PUS A P_STRING 
000000006 99 ¢ f 00 CALLS #2, ~STRSCOPY_Dx 
MOVL #1. RO 


fF 9 
YoLn000" 1e-8ep=1882 93:28:87 FAbunt. SkcSmountimé-B53—1 Page 85 
04 0004A RET : 2142 
; Routine Size: 75 bytes, Routine Base: SCODES + OCBB 


NTN 


DODNAVL EWN OOONOULW 


At Pd ad 8 DS 


NOUNS WN" OVONOUNSE 


MEU — 


ee ee ed a a ae ed td tt tb — 8 a 5 


pO ee ee RE EE 


a a at a a a a a ee a tt st a 8 tt tt tt tt tt 


RIPIDPIPIPIPIPIPIPIPIPDFIPIPIPIPIPIPIPIPIPUPIPIPUPIPOPINIPININPIDYD 4 I 


Be Se Ge Ge Ge Ge Fe Se Se Se Se Ge Se Se Ge Se FF Sse Se Se Se Fe Ge Se Se Se Se Se Se Se Se Ge Se Se See Seas 


SAAVSNNAASSSLSORERLS 


Oo 


iSeseoctane o1:06:¢e yaReay, 


i Store ACP. Skring as specified by the :SAME option. 
! Append a the device name. 


' 
i 
i 
i 
ROUT IME GET_SAME_ACP = 


AL 
ACP DESC : BBLOCK [CDSCS$C_$_BLNI, 
SAME_ACP : VECTOR (21 TSEYTES? 


TPARSE_ARGS (CONTEXT); 


IF .CONTEXTCTPASL TOKENCNT] GTR 20 
THEN RR EXIT CROONS ~ACPNAME) ; 


: Add the colon (:) to the device name. 


cHsMovE (, CONTEXTCTPASL_TOKENCNTJ CONTEXTETPASY,. TOKENPTR], SAME_ACP); 
SAME_ACP C.CONTEXT CTPASL_TOKENCNTJ) = XASCII ': 


! Initialize local descriptor and load values. The size of the device 
name has increased by 1, because of the colon that was added. 


CHSFILL (0 Bscsey S_BLN, ACP DESC); 
DS$c$B_DTYPE) = DSCSR eet tre 

ACP"DESC te LENGTH) = - CONTEXT TPASL. TOKENCNT) + 1; 

ACP=DESC CDSCSA~ BOINTERD = SAME_ACP; 


: Now, move values to the text descriptor. 
CHSFILL ( 0, DSCSC_S et. ACE grhine de 
ACP_ST : $8. DSTSK_DTYPE_T 


BrYP 
=CLA ss = DSCSk> LASS. “p: 
CPZSTRING, ACP_DESC ) 


END; ! end of routine GET_SAME_ACP 


003¢ 00000 GET SANE ACE 


ORD S 

SuBL2 oF 2, 

CMPL i toNTEXT). 
BLEG Ss 

PUSHL a 504196 


IBSSTOP 
Ietcontgnt 
00 


MO 
ADDS Hef (CONTEXT) 


AE 


RCIMOUNTIMG.B 


o &. R3,R4,R5 


MO 
MOVB iss, “3 +e CONTEXT) CROJ 
(SP), #0, #8, ACP_DESC 


nau NG Herfeoctgte 063g yauclt at ina=52 va. 08742, 


1c «AE 6E 9E 00037 MOV ag SAME_ACP, AP. DESC +4 
08 00 6E ance o¢ 2c O03 MOVC #0, TSP), #0,°48, ACP_STRING 
0000" CF 020¢ St 0 0004 MOVW #526, ACP_STRING+2 
1 AE 9F OO04A PUSHAB ACP_ esc 
0000' CF 9F 00040 PUSHAB at ING 
000000006 90 be FB 0 } CALLS “SiRSCOPY_ DX 
1 9 9 é MOVL 


; Routine Size: 92 bytes, Routine Base: SCODES + 0006 


Sb 


'4 
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| TPARSE state tables to parse the various qualifier value strings. 


wm 


i Parse /CACHE options (EXTENT=n, LIMIT=n, FILE_ID=n, QUOTA=n, NOEXTENT, 
; NOFILE_ID, NOQUOTA, and WRITETHROUGH). 


SINIT_STATE (CACHE_STB, CACHE_KTB); 


SSTATE (NEXT_CACHE, 
("EXTENT , ,, “(OPT CACHE=333 « MOUNT_OPTIONS+4), 
( EID -32), 


Pes 


oO 
wm 
Ce a ee ee en ee 


“(OPTI CACHE MOUNT~OPTIONS+4), 
PT_NOEXT £38) MOUNT _OPTIONS+4}, 


DOONAN WI OS OONA UE UT 


PYsReeUS= E883. ROWNTZBRHH ONES 
*NOWRI TETHROUGH' - : , a . 


("QUOTA’, CACHE_QUO, , PT _CACHE-32 , MOUNT_OPTIONS+4), 
(*WRITETHROUGH',,, PT“WTHRU-32), MOUNT-OPTIONS+4) 


ee ery we tee a ae La ep 


vuvVvUVVVUUUU 


SSTATE 


+ °m 
z 
“oO 
we 1 


CACHE, 
NEXT_CACHE), 
EOS, TPAS_EXIT) 


QESRLANLSSELF 


oo 


EWN @OOONAUE WN @§O OONAOULS WOOO 


SSTATE _EXT, 


2 «f} . 
-- > 
oe 


a 4 
em 


SSTATE 
PAS_DECIMAL, END_CACHE,,, EXT_CACHE) 


Vee ht te ae) wer — 


a ee a a 


SSTATE 


SSTATE 


LEAFANALS BSNS ARAN SSSIS 


PAS_DECIMAL, END_CACHE,,, FID CACHE) 


FUSFVSVSUSUSUSISUSUSVSVUSUSVISE SUISUN 


PUAN 
SESSEESE 


SSTATE 


SSTATE 
PAS_DECIMAL, END_CACHE,,, QUO_ CACHE) 
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we 
PPP PPP 


tf) 2) 2 1 UL 


vuvv 
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WO OENOULSUR' $CODNOULS V0 00 


vvv 
ARO 
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SSTATE (LIMITEXT, 
("2")” 
); 
SSTATE ( 
(fPAS_DECIMAL, END_CACHE,,, | EXT_LIMIT) 


' 
; Parse /MATA_CHECK options, of the form CREADIC,WRITEJ. Default is write. 


SINIT_STATE (DATACHECK_STB, DATACHECK_KTB); 


SSTATE ( 
(fPAS_EOS, TPAS_EXIT., 1°(OPT_WRITECHECK=32), MOUNT_OPTIONS+4), 
(TPAS-LAMBDA) 


SSTATE 


ce of 
$2zx% 

mm 
-——PoO 
“Aoxz 
m -©> 

- UV 


. 
ese 8 
a 


“ READCHECK=32). MOUNT OPTIONS+4) 
a ITECHECK=32), MOURT_OPTIONS+4) 
SSTATE 


*. CHECKOPT), 
ba$_EOS, TPAS_EXIT) 


YA WR E ed 
2 
r) 


ceo—| — 


Parse INITIALIZE options (ALL, CONTINUATION) 


SINIT_STATE CINITIALIZE_STB, INITIALIZE_KTB); 


SSTATE (NEXTINI, 
("ALL*,,.1°(OPT_INIT_ALL-32), MOUNT QPTIONS*4) 
(* CONTINUATION’, .1*TOPT_INIT_CONT~3 ), MOUNT_OPTIONS+4) 


SSTATE (, 
(8° NEXTINID 
(TPas_E0S, TPAS_EXIT) 


Parse JOURNAL options (CNOJNEWFILE, SIZE=n, EXTENSION=n, QUOTA=n, RECORD_SIZE=n) 
SINIT_STATE (JOURNAL_STB, JOURNAL_KTB); 


SSTATE (NEXT JOURNAL, 
(*NEWFILE' 


fe 1*(OPT_NEWJRNL=32), MOUNT_OPTIONS+4), 
(*NONEWFILES; , CLEAR_NEWJRNL) > 

(*SIZE" OURNAL SIZE) 

(*RECORD SIZE", JOURNAL-RECORD SIZE), 

(*EXTENSTON', " JOURNAL EXTENDY, 

(QUOTA, OURNAL QUOTA) , 
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sy 


SSTATE (, 
* NEXTOVR) 
tha$_E0S, TPAS_EXIT) 


ee ee ee ee 
vuvv 
le te ~ 


VEUN (OOOO NE WN" QOOONOUL Ww 


! 
: Parse /OWNER_UIC string and store binary value. 


SINIT_STATE (UIC_S7B, UIC_KTB); 


P SSTATE ( 
Pp (FPAS_IDENT... .UIC) 
P SSTATE ( 

P (fPAS_E0S, TPAS_EXIT) 


] 
: Parse PROCESSOR options, set bits and store name. 


SINIT_STATE (PROCESSOR_STB, PROCESSOR_KTB); 


pe | 


ee ed ee ee cd ed a ce ed ed ce ee a ce ed ce ee ee ce ee ee a ce ae ee ce ce me ee ce me ce ce ce ce ce ce ed ee ee ee ee ed ed eed eed eed 
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9 P SSTATE ( 
40 P (TUNIQUE’,, GET_ACP_NAME, 1°OPT_UNIQUEACP, MOUNT_OPTIONS), 
41 Pp ("SAME’, SAMEPROC,,~1°OPT_SAMEACP, MOUNT OPTIONSS 
74g P CCFILENAME) . GET_ACP_NAME, 1°OPT/FILEACP, MOUNT_OPTIONS) 
74h 
745 P SSTATE (ENDPROC 
746 P (TPAS_EOS, TPAS_EXIT) 
748 d 
749 e SSTATE (SAMEPROC. 
: oe a 
7 e 
754 P SSTATE ( 
755 P ((DEVICENAME),. GET_ACP_NAME), 
? 4 P CTPAS_SYMBOL . GET_SAME~ACP) 
7 e 
7 P SSTATE ( 
760 Pp : (FPAS_LAMBDA, TPAS_EXIT) 
7 401 ‘ 
786 P 2% : SSTATE (FILENAME 
764 P 26 (TPAS_SYMBOL, FILENAME), 
765 P 26 (*." “BILENAME), 
766 P 2405 (*:*° FILENAME) 
16 P 3 (TPAS_LAREDA, TPAS_EXIT) 
168 408 . 
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YOLn 000 12-86-1382 94 :06:¢8 MOUNT. SRCIMOUNTIMG.B3251 ° (288 
: 1827 P 24 : 1 C's"), 
[1 P 2467 1 ("2")! 
; i P 4 (TPAS LAMBDA, ENDPRO) 
3; 1831 4 1 
31 ; P 9471 1 SSTATE (GRPRO 
:1 P 2472 1 ('R', GRPRO,, %X'0100', PROTECTION), 
| P 2473 1 ("w'? GRPRO,. &x* é ** PROTECTION), 
> 1835 P 2474 1 ("E*’ GRPRO.. %X'0400'. PROTECTION), 
21 P 2475 1 ("B** GRPRO.. %X°0400". PROTECTION), 
:1 P 2476 1 ("D'? GRPRO., &X° 6 + PROTECTION), 
:1 8 P 2477 1 ("L'® GRPRO., %X°0800". PROTECTION), 
:1 P 2476 1 (TPA$_LAMBDA, ENDPRO) 
> 1840 479 1 ); 
> 1841 480 1 
:1 : P 2481 1 SSTATE (WOPR, 
3 1 P 24 § 4 .*s"s. 
: 1844 P 2483 1 ("=") 
; 1845 P 4 4 (TPAS_LAMBDA, ENDPRO) 
:1 5 486 1 
> 1848 P 2487 1 S$STATE (WOPRO, 
> 1849 P 2488 1 ('R', WOPRO,, %X'1000", PROTECTION), 
> 1850 P 2489 1 ("W', WOPRO.. %X°2000". PROTECTION), 
> 1851 P 2490 1 ("E*: WOPRO., 1x'400 * PROTECTION), 
: 1858 P 2491 1 ("P** WOPRO,, %X°4000'. PROTECTION), 
> 185 P 2492 1 ("D"*; WOPRO.. 4x 800 * PROTECTION), 
> 1854 P 2493 1 ('L** WOPRO,, %X°8000'; PROTECTION). 
: 1855 P 2494 1 (TPA$_LAMBDA, ENDPRO) 
ae ge 
> 1858 P 2497 1 $STATE (ENDPRO 
: 1859 P 2498 1 (*,". NEXTPRO) 
; 1860 P 499 (TPAS_EOS, TPA$_EXIT) 
; 186¢ 501 1 
: 186 208 1 END 
> 1864 503 0 ELUDOM 
.PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 
00000 ; TPASKEYSTO 
U.2: -BLKB O 
54 4E 45 54 58 45 00000 ; TPASKEYS 
teen ee ASCII \EXTENT\ : 
$888 sroascevigbS 
44 49 SF 45 4C 49 46 00007 ;TPASKEYST 
* G.12: | LASCII \FILE_ID\ : 


te BYTE 

F ; TPASKEYSTO 
U.18: .BLKB 0 

54 49 4D 49 4C OOOOF ; TPASKEYST 

U.20: eASCII \LIMITN\ 3 


vou=000 


54 


44 49 


48 47 55 4F 52 48 54 


48 47 55 4F 52 


4E 4F 49 54 41 


4E 


i 


45 


48 


55 


4s 


45 


54 


54 


54 


4E 


54 


4C 


4F 


49 


41 


45 


45 


49 


58 


49 


55 


52 


54 


54 


4h 


54 


54 


51 


57 


4F 


49 


41 


49 


at 


4E 


4F 


4F 


4F 


4F 


55 


52 


45 


52 


4C 


AF 


FF 


if $eo-19Be 01:06: ts 


S815 sreaserefl™ 
00015 ; Bhéxevey 


A 
Sbote f 
OO1E ;TRASKEYST §T 
OOO1E ; TPASKEY De 
‘8 

T 


Cee See 


sy 
, 


+c 


32: SCII 
itt YTE 

$00 B } gtgase KEYSTO 
U. -BLKB 

00028 ; TPASKEYST 
U.38: “ASCH 

g00eF ; TPASKEYSTO 


U.42: 
00030 ; TPASKEYST 
: ASCII 


OOO -tosseavits 


0.46: BLK 
O003F ; TPASKEYST 
U.48: .ASCII 


00044 -BY 
00045 Neem 'y 
00045 ; TPASKEYST 


ce 


0.56: ASCII 
tied ingen atte 
00053 i TRASKEYSTO 
00053 ; TPASKEYST 

‘ 0.93: “ASCII 
bo088 ZIBASKEYSTO 
00058 ; TPASKEYST 

oni 0.99: ASCII 
tiie E ; TPASKEVE ILL 

U.103: .BYT 
0005F ATPASKEYSTO 
0005F STPASKEYST 

7 “BYTE 
8805 steamer 
0.115: .BLKB 
00063 sipagierst 
wianiead BYTE 
; TPASKEYFILL 
121: .BYT 


oO 


Seated 


0 
alcatel 


0 
nn 


0 


Lalani 


0 
_ 


0 
sachets 


o1 
0 
= 


0 
\WRITE\ 


\ ‘atahemmaniceiaads 


-1 


¥4.0-74 
é°asee1 


vO4-000" 


45 


59 54 49 


49 54 41 43 49 


4E 4F 49 54 


5A 


4C 


4E 


46 


aj 


45 


49 


4E 


49 


4F 


43 


4C 


53 


4F 


42 


49 


54 


49 


45 


49 


SF 


49 


49 


54 


4E 


46 


4C 


46 


ab 


53 


53 


4] 


45 


49 


49 


57 


52 


4E 


41 


53 


52 


4a 


54 


45 


4F 


45 


54 


45 


49 


49 


4B 


4E 


4E 


5A 


43 


of 


4F 


43 


50 


BS 


43 


45 


45 


4F 


45 


58 


55 


43 


58 


4s 
4E 


4F 


4d 


ifcdeo-t9ge 01:06:38 


00071 ; A TTORKevsio 


8 
00071 ALT agxevit 
129: ast 


g0078 ;TPA ceri 


cee 
LJ 
_ 


> Vrviry UIPUIP FPP FPW 
x 
m 
=e 
i742) 


SARA VROGKLSR WHOS WHKOH BPHLH 
e 
@ 
r 
x 
es] 


OOOBE. ; ager 


U B 
QOOOBE ; TPASKEYST 
U.204: .ASCII 


0 0 
ita -BYTE 
OO; TPASKEYETO 
20 K3 
00000 ;TPA eee? 
0.210: “ASEH 


BO0D$ ; 3 TPA cevei0 


bretee BLK 
00005 TTPASKEYST 
U.216: .ASCII 
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o 


oe 


oO 


naam 


0 
NgszeN 


0 
hata alata 


0 
_ 


0 
_ 


-1 
0 
WECSSSISAL TTY 


0 
om 


0 
\SETIDENTIFICATION\ 
-1 

0 

yer) 


0 
\IDENTIFICATION\ 


Pose? 
age 15 


v0 


vO%=000" 


45 49 46 49 54 4E 45 44 49 SF 


Ibe 


0O0FD 


00103 
00103 


B0i0A 


0010A 


00110 ; 
00110 


00115 
00116 
00116 


00000 


U. 
; TBASKEYSTO 


0.292: 
sTPA KEYST 


sare 73:88} 4 NT : F098 2h) 


cr 
x =r 
om 


—- 
re 
onl 


; TPASKEY 


@O-@Or 08 +@8>F> +4040 
o~< 
ee 


=<r<v cox 
wo 


§ 
F 


a- AO 


-BLKB 
sTBaskevst 
: ASCII 
-BYTE 

; TPASKEYSTO 


ASCII 


-BY 
reasxevétd 


0: 
C TPASKEYST- 
0.302: .ASCII 


BY 
3 TPASKEYSTO 
. 308: 


; TPASKEYST 
310: 


»PSECT 
CACHE _STB:: 


LK 
00000 NEXT_CACHE: 


7100 00000 


0000* O000A 


; TPASTYPE 


U. . s 
00000000 00002 {, 'PASADOR 
00002000 00006 ; TPASMASK 


LONG 


.LONG 
; TPASTARGET 


\OWNER_IDENTIFIER\ 
o1 

-1 

0 

beet 


L lacinant 


0 
— 


0 
Sl 


0 
es 


o1 
-LIBSSTATES,NOWRT, SHR, PIC,1 


0 

28928 
<<<MOUNT _OPT IONS+4>-U.6>-4> 
8192 


Hea ttn 


7101 0000¢ Fipastyeé 


WORD 
00000000* O0000E siPAsADDA 
00002000 00012 ; TPASMASK 
U.15: LONG 
0000* 00016 ; TPASTARG T 
U.1 ~ WORD 
1102 00018 ; TPASTYPE 
U.21: WORD 
0000* OOO1A p, OQsTance? 
U.25: WORD 
6103 O001C ; TPASTYPE 
U.27: WORD 
00000000* OO01E Nd rapa 
00008000 00022 ; TPASMASK 
U.29: LONG 
6104 00026 ; TPASTYPE 
U.33: WORD 
00000000* 00028 ; TPASADDR 
U.34: LONG 
00610000 0002C NS ae 
6105 00030 ;TPASTYPE 
U.39: ~ WORD 
00000000* 00032 ; TPASADDR 
U.40: LONG 
00020000 00036 ; TPASMASK 
U.41: —_.LONG 
0106 OO03A ; TPASTYPE 
U.45: - WORD 
7107 O003C ; TPASTYPE 
U.49: WORD 
00000000* OO03E ; TPASADDR 
U.50: - LONG 
00002000 00042 ; TPASMASK 
U.51: —.LONG 
0000* 00046 ; TPASTARGET 
U.53: —_.WORD 
6508 00048 ; TPASTYPE 
U.57:  .WORD 
00000000* 0004A ; TPASADDR 
U.58: —_.LONG 
00004000 O004E ; TPASMASK 
0.59: LONG 
00052 END_ CACHE: . 
102C 00052 ; TPASTYPE 
0.61: WOR 
0900* 00054 siBASTARGer 
15F7 00056 ; TPASTYPE 


: .WOR 
FFFF 00058 OFPASTARGET . 
U.64:  .WORD 


AX-11 Bliss-32 V4.0- 
MOUNT. SRC JMOUNTIMG.B* 


<<U.8-U.9>=2> 

28929 

<<<MOUNT _OPTIONS+4>-U.14>-4> 
8192 

<<U.16°U.17>=2> 

4354 

<<U.22°U.23>-2> 

24835 
<<<MOUNT_OPTIONS+4>-U.28>-4> 
32768 

24836 
<<<MOUNT_OPTIONS#4>-U. 34>-4> 
65536 

24837 
<<<MOUNT_OPTIONS+4>-U.40>-4> 
131072 

262 

28935 

<<<MOUNT _OPTIONS+4>-U.50>-4> 
8192 

<<U.52-U.53>-2> 

25864 
<<<MOUNT _OPT IONS+4>-U.58>=4> 
16384 

0 

4140 

<<NEXT_CACHE-U.62>-2> 

5623 

-1 


742 
231 


Page 7 
age 315 


v0 


vou=000" 


F 10 


18805-1986 2:08:81 EROUNT. SRCSROUNTIN 


OOOSA ; CACHE _EXT 


8: K 
003A O005A sibAstvPé 
0430 0005¢ tBASTyPE 
S5F3 OO0SE ; TPASTYPE 


U.67: WORD 
00000000* 00060 ; TPASADDR 
U.68: .LONG 
0000* 00064 ; TPASTARGET 
U.69: ~ WORD 
00066 Nr ate 
003A 00066 ; TPASTYPE 
U.70: WORD 
0430 00068 ; TPASTYPE 
U.71: WORD 
55F3 O006A ; TPASTYPE 
U.72: WORD 
00000000* 0006C ; TPASADDR 
U.73: .LONG 
0000* 00070 ; TPASTARGET 
U.74: - WORD 
00072 A°OgMe we 
003A 00072 ; TPASTYPE 
U.75: WORD 
0430 00074 ; TPASTYPE 
U.76: WORD 
55F3 00076 ; TPASTYFE 
U.77: - WORD 
00000000* 00078 ; TPASADDR 
U.78: LONG 
0000* 0007C jpastancs t 
0007E gLigitext 
003A OOO7E ; TPASTYPE 
U.80: WORD 
043D 00080 ; TPASTYPE 
U.81:  .WORD 
55F3 00082 ; TPASTYPE 
U.82:  .WORD 
00000000* 00084 A iggenor os 
0000* 00088 = ipASTARGEY 


Boose DATACHECK ChB: : 


71F7 OO008C ; TPASTYPE 
00000000* 0008E 
00000010 00092 


58 

1085 

22003 
<<EXT_CACHE-U.68>-4> 
<<END_CACHE-U.69>-2> 
0 

58 

1085 

22003 
<<FID_CACHE*U.73>-4> 
<<END_CACHE=U.74>=2> 
9 

58 

1085 

22003 
<<QU0_CACHE-U.78>-4> 
<<END_CACHE-U.79>=2> 
0 

58 

1085 

22003 
<<EXT_LIMIT-U.83>-4> 
SEND CACHE “U.O=E> 


0 

29175 

<<<MOUNT _OPTIONS+4>-U.87>-4> 
16 


vou-000" 


FFFF 
OS5F6 


6100 
00000000* 
00700008 

6501 
00000000* 
00000010 

102¢ 

0000+ 
15F7 

FFFF 


6100 
00000000* 
04000000 

6501 
0000000* 
08000000 

102¢ 

0000+ 
15F7 

FFFF 


6100 
00000000* 


sfcdeoct9Rs 01:06:97 yt 8 


00096 gTRAsTaRcer 
00098 PAST YPE 
0009A CHECKOPT: 
0009A ; TPASTYPE 


U.94: ° 
0009C Ws ae 
LONG 


u. 1 
Q00A6 ; TPASADDR 
U.101: .LONG 
QOOAA ; TPASMASK 
U.102: .LONG 
QOOAE ; TPASTYPE 
U.104:  .WORD 
00080 es Haat A 
U.105: .WOR 
00082 ; ‘rare. 
00084 sipasi innéer 


1526 
0 
24832 


<<<MOUNT_OPTIONS+4>-U.95>=4> 


8 
25857 


<<<MOUNT_OPTIONS#4>=U. 101>=4> 


16 

4140 
<<CHECKOPT-U.105>-2> 
5623 

-1 


$o0n8 INITIALIZE Saree 


90088 negTIM OU 


0.1 WORD 
000BA ipa ADDR ng 
O000BE Ae: ee 
000C2 Ne 5 Haak 

U.118:  .WORD 
000C4 pItARAooR 

U.119: . LONG 
000c8 Ustede es 

120: .LONG 
QOOCC ;TPA TYPE 

U.122: .WORD 
OOOCE ; TPA TARGET 

U.1235: .WORD 
00000 3s TPASTYPE 

U.124: 


.WORD 
00002 ; ZTPASTARGET 
00004 JOURNAL. STB:: : 
00004 NEXT_JOURNAL : 
00004 ; gipastvee 

. WORD 
00006 ; TPASADOR 


24832 


<<<MOUNT_OPTIONS+4>-U.113>-4> 


67108864 
25857 


<<<MOUNT_OPTIONS+4>-U.119>=4> 


134217728 

4140 
<<NEXTINI-U.123>-2> 
5623 

ol 


ref 


H 10 
1e-$ep-198e 12:48:81 EROUNT. SRCSAOUNT IMG. 85251 


131: LONG <<<MOUNT_OPTIONS+4>-U.131>-4> 
01000000 000DA siPh hase . 

esos U1 i pgLONG 16777216 

i483 : .WORD 32511 
000E0 is ACTION 

U.137:" LONG © <<CLEAR_NEWJRNL=U. 137>=4> 
Q00E4 ; TPASTYPE 

G.141: .WORD 4354 
Q00E6 ; TPASTARGET 

U.14 $ ~ WORD <<U.142-U.143>-2> 
000E8 s TPASTYPE 

0.147: .WORD 4355 
O00EA ; TPASTARGET 

0.149: .WORD  <<U.148-U.149>-2> 
_— rege orp 4356 
OOOEE ; TPABTARGET 

0.155: .WORD <<U.154-U.155>-2> 
000F0 j TPASTYPE 

0.159: .WORD 4357 
OO00F2 ; TPASTARGET 

0.161: .WORD <<U.160-U.161>-2> 
100 Fe Tee uoRD 5623 
000F6 ATPASTARGET 
000F8 END_JOURNAL : : 
_— ATRABTVPE ne 4140 
QOOFA ; TPASTARGET 

U.166: .WORD <<NEXT_JOURNAL-U.166>-2> 
(OOF TNT TPE on 5623 
O00FE ZTPASTARGET , 
0010 FENN Ho 
00100 sPAStYPE 

0.169: .WORD 58 
00102 ; TPASTYPE 
0010s vivastveee™ 08° 
saad dite wORD 22003 

i} : LONG <<JRNL_SIZE-U.172>-4> 
0010A s TRAST TARGET 

0.1 «WORD  <<END_JOURNAL-U. 173>-2> 
0010¢ 5 /ouR NAL RECORD file 
0010¢ sipagived estes 
9010€ ; TPA TYPE 

0.175: .WORD 1085 
00110 s TPA TYPE 

0.176: .WORD 22003 


3 


Be Se Se Se Se Fe Se Se Ge Se Ge Se BeGe tse Se Se Fe Sete Se Se Se Ge Bee Se ee Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Sr Se FSH See Se Se Seas 


Ss 
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ap apanantieaie: UTP e LONG <<JRNL_RECORD_SIZE-U.177>-4> ; 
Hoon nec ORD  <<cEND_JOURNAL-U.178>=2> : 
ore EE : 

sen: Tsai Ui179: WORD 58 . : 
ee OTT ATRL WORD 1085 
sia eee 22003 
resshperinatie te <<JRNL_EXTEND=U. 182>=4> ; 
oon tne eas: SWORD <<END_JOURNAL-U.183>=2> : 
ort en : 

ek Ones Tbe SWORD 58 
oe 00128 TBS: WORD 1085 
itll te b186: ° -uorp 22003 
aot nen ary LONG — <<JRNL_QUOTA-U.187>~4> : 
cone oor FHEAETANE etude | : 
00130 OVERRIDE“STB:: 

6100 00130 BPASTYPE sg 
gonnenne COIR 7 Teens cccnnant_srtienssi-4.100=0 
00000040 00136 siPASRASK | 
Bae onnen ito: cWORD 26833 
anneal sieben 5150 #PPR ONG <<MOUNT_OPTIONS-U.200>-4> H 
Hooters eOTT RLONG 1048576 
one ones 4150S: WORD 24834 
soon se i <<MOUNT _OPTIONS-U.206>-4> ' 
i U.207:  .Lone 2097152 | 

2 24835 

opened 3 <<<MOUNT_OPTIONS#4>-U.212>=4> 
menue 5 2097152 
6104 00158 i =apaee 


U.218: .LONG 
MASK 


00400000 O015E ;TPA 
2219: ONG 
6505 00162 iba TYPE 
00000000* 00164 é i 
10000000 90168 ; ate 
102C O016C ; : 
0000* OO16E ; 
15F7 00170 ; 
FFFF 00172 ; 
00174 


P 
2 
45EC 00174 ;T 
U.2 

2 


00000000* 0015A ; lbs 


e+ Ce- Cee 
—le 


Gee 
Ge ho 
a ag 


PE 


+ 
a 
+ ARGET 
ak 
on 


Gee 


Cee 
—e «de 
WPMPMPMPMPMPrrw 


2 


Ccce- Cee 
es —We 


TYPE 


it 
P 
288: 
TP "e/ 
$ 


00000000* 00176 ; 


# 

A 
3 
A 
U.23 
15F7 OO17A ;TPA 
U.234: .WORD 

FFFF OO17C ; TPASTARGET 

U.235: .WO 


$6185 PROCESSOR S18: : 


BLK 
E100 00180 ; ATBASTVPE 


ORD 
00000000* 00182 v easaction 

0.241: .LONG 

00000000* 00186 ;TPA ADDR 
U.242: .LONG 

04000000 0018A ; TPA MASK 
U. 243: .LONG 

7101 OO18E ; TPASTYPE 
U.247: .WORD 

00000000* 00190 ; TPASADDR 
U.248: .LONG 

08000000 00194 ; TPASMASK 
U.249: .LONG 

0000* 00198 j TORSTARGE 

U.251: .WORD 

EDF8 OO19A ; TPASTYPE 
U.252: .WORD 
0000* 0019C¢ ALS: eee 
00000000* 0019€ ALA: eae 
00000000* 001A2 aise rae 

10000000 001A6 sifA MASK 


1b-ep-1906 01:06:29 YAK al igs=32_v4.0-742 


<<MOUNT _OPTIONS-U.218>-4> 
4194304 

25861 
<<<MOUNT_OPTIONS*#4>-U.224>-4> 
268435456 

4140 

<<NEXTOVR=U.228>-2> 

5623 

-1 

0 

17900 

<<UIC“U.233>-4> 

5623 

=1 


-7936 
<<GET_ACP_NAME-U.241>=4> 
<<MOUNT_OPTIONS=U.242>-4> 
67108864 

28929 
<<MOUNT_OPTIONS-U.248>-4> 
134217728 
<<U.250-U.251>=2> 

4616 

<<U.253-U.254>-2> 
<<GET_ACP_NAME-U.255>=4> 
<<MOUNT _OPTIONS-U.256>-4> 
268435456 


Sz 


vou=000" 


15F7 
FFFF 


003A 
0430 
89F8 
0000* 
00000000* 
85F1 
00000000* 
15F6 
FFFF 


11F1 
0000* 
102E 
0000+ 
1038 
0000+ 
15F6 
FFFF 


OSF1 
043A 
15F7 
FFFF 


7100 


iebect94e $08 


ot AA ENDPROC: .BLKB 
1AA ATBASTYPE 


ce 


25 
001AC itt 
OO1AE ; SAMEPR 
er ia BLKB 
OO1AE ; TPASTYPE 
0.261: WORD 
00180 ; TPASTYPE 
6.262: .WORD 
00182 ; TPASTYPE 
6.263: nator? 
— 5 TBAgsuee NORD 
00186 ZTBASACTION 
001BA ZIBASTYPE 
0018¢ ZTBASACTION 
001C0 ZIBASTYPE 
001¢2 ; TPASTARGET 
oo1ce SET eHANE SO 
if aks -BLKB 
001¢4 ZiBASTYPE 
001¢6 ZTBASTARGET 
001¢8 ZUBASTYPE 
QO1CA ; TPASTARGET 
0.274: .WORD 
oo1ce ZiBASTYPE 
OO1CE ; TPASTARGET 
U.276:  .WORD 
00100 ZIBASTYPE 
00102 ZIBASTARGET 
001D4 ; DEVICENAME 
U. : .BLKB 
001D4 ZiBASTYPE 
00106 ata TYPE ab 
00108 iba TYPE a 
001DA A UBASTARGET 
0010¢ gine, ta 


AX-11 Bliss-32 V Pd 6 
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ve 

-1 

0 

58 

1085 

-30216 

<<U.264°U. 265>-2> 
<<GET_ACP_NAME-U. 266>-4> 
-31247 
<<GET_SAME_ACP-U.268>-4> 
5622 

-1 

0 

4593 

<<U.253-U.272>-2> 

4142 

<<U.253-U.274>-2> 

4155 

<<U.253-U.276>-2> 

5622 
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(24) 


33 


. 
° 
ro 
o 
. 
o 
a 
oe 
2 
9 
ro 
o 
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e 
o 
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° 
e 
° 
o 
© 
eo 
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. 
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° 
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o 
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. 
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. 
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. 
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3 
© 
e 
. 
o 
+ 
o 
* 
e 
° 
e 
° 
o 
° 
6 
2 
e 
. 
a 
. 
e 


00000000* O01DE ; i 


000F 0000 O01E2 : 
0000* O01E6 ; 
7101 O01E8 ; 
00000000* OO1EA ¢ 
OOF00000 OOTEE ; 


0000+ Oo1F2 ¢ ; 


7102 


00000000* 
0F 000000 
0000+ 
7503 
00000000* 
F0000000 
0000+ 


003A 
0030 
15F6 
0000+ 


001F6 
OO1FA 
OO1FE 
00200 
00202 
00206 ; 
0020A ; 
0020C ; 
0020C ; 
O020E ; 
00210 ; 
00212 ; 


AS : 
U.304: 
U 


7052 
00000000* 
00000001 0021A ; 

0000* O021E ; 

7057 00220 ; 
00000000* 00222 ; 
00000002 00226 ; 

0000* 0022A ; 


1boct9ge 93:08:3 


Agoni 
§5aee 
PA hasie 


iat ae 
Set 
a WORD 
PASADDR 


F#BASRASK On 
U.297: 


- WORD 
3; TPASADDR 
LONG 
3 TPASMASK 
-305: .LONG 
: TPASTARGET 
-307: .WORD 
:TP 
3TP 


: LONG 


: .LONG 
ASTARGET 


0 
4 
PA ADDR 
31 
PA 
31 
P 
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MOUNT. SRC JMOUNTIMG.B32; 1 
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28928 
<<PROTECTION-U.288>-4> 
983040 
<<U.290-U.291>-2> 
28929 
<<PROTECTION“U.296>-4> 
15728640 
<<U.298-U.299>-2> 
28930 
<<PROTECTION-U.304>-4> 
251658240 
<<U.306-U.307>-2> 
29955 
<<PROTECTION-U.312>=4> 
268435456 
<<U.314-U.315>-2> 

0 

58 

61 

5622 

SoU. 520-0. Se19-2> 


28754 
<<PROTECTION-U.323>-4> 
1 

<<SYPRO-U.325>-2> 
28759 
<<PROTECTION-U.327>-4> 
2 


S35 


1SrBen-1964 01:06:99 


329: WORD 
7045 0022C "i teas TYPE 
: WORD 


00000000* 0022€ i pA ADDR ng 
00000004 00232 j pA MASK 
it ONG 


0000* 00236 ;Tf TaReer 

7050 00238 Al TYPE a 

00000000* 0023A ; TRASADDR 
0.335: .LONG 


00000004 O0023E ; WAS mee 
336: .LONG 
0000* 00242 ; Ares Hae 3 
7044 00244 ; A TYPE 
338: WORD 
00000000* 00246 ; TPASADDR 
0.339: .LONG 
00000008 0024A ;TPA ASMASK 
0.340: .LONG 
0000* 0024E ; ; TRASTARGET 
704C 00250 ; Hie 


00000000* 00252 ; TPASADDR 
00000008 00256 TBA ASK 
0000* 0025A A ee 

U 345: Wi 

15F6 0025C ; 


ONG 
T 
ORD 


=H 
> 
wn 
pa 
-t, 
wv 
m 


i gee. WORD 
0000* 0025E s TRASTARGET 
U.34 : WORD 
00260 ;OWPR 
298: .BLKB 
003A 00260 ; TPASTYPE 
U. 348:  .WORD 
0030 00262 ; TPASTYPE 
U; 349: WORD 
15F6 00264 ; Te TYPE 
50: .WORD 
0000* 00266 ;TPA TARGET 
OuPRO: “BUR 
7052 00368 cTPASiYPE 
0.352: E oRD 
00000000* 0026a ¢ 3 TPASADDR 
353: LONG 
00000010 O0026E ; Mr 
0000* 00272 i, mea Hea 
7057 00274 ; TPASTYPE 
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<<SYPRO=U.329>-2> ; 
28741 3 
<<PROTECTION“U.331>-4> : 
4 : 
<<SYPRO-U.333>-2> 

28752 

<<PROTECTION-U.335>-4> 

4 

<<SYPRO-U.337>-2> 

28740 

<<PROTECTION-U.339>-4> 

8 

<<SYPRO-U. 341>=2> 

28748 

<<PROTECTION-U.343>-4> 

8 

<<SYPRO-U.345>-2> 

5622 

<<U.320-U.347>-2> 

0 

58 

61 

5622 

G-520-U.351>-e> 


28754 
<<PROTECTION-U.353>-4> 
16 

<<OWPRO-U.355>-2> 


SS 
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e 
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e 
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e 
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e 
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8 
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. 
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° 
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. 
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. 
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e 
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e 
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e 
. 
e 


71986 92:28:87 UROunT. SkSmounr ING. 5 


00000000* 00276 ; 


ee 


oS 

Oo 

~ 

oD 

o 
-~ or, oz, — 
WUMMM—RNMOPMOMOW 


ez, 
SS eee eee 


pot ent 


=a an 
ORMOM oOo 


r+. ph 


42 
2; 


1 
28759 
<<PROTECTION-U.357>=4> 
32 

<<OWPRO-U.359>=2> 
28741 

<<PROTECTION-U. 361>-4> 
64 

<<OWPRO-U. 363>-2> 
28752 
<<PROTECTION-U.365>-4> 
64 

<<OWPRO-U.367>-2> 
28740 
<<PROTECTION-U.369>-4> 
128 

<<OWPRO-U.371>-2> 
28748 
<<PROTECTION-U.373>-4> 
128 

<<OWPRO-U.375>-2> 

5622 

<<U.320-U.377>-2> 

0 

58 

61 

5622 

$<U. 520. 581d" E> 


28754 


$3 


De Se Se Se Se Se Se Se Se Se Se Se FHSS Se SF Se Se Se FESS FH Ss Se SESS Se Ge Se Ss Se Se Se Se Se Se Se SeSe Se Se See Se See Se Seessetetesse Se Ssases 


00000100 
0000* 
7057 

00000000* 

00000200 
0000* 
7045 

00000000* 

00000400 
0000+ 
7050 

00000000* 

00000400 
0000* 
7044 

00000000* 

00000800 
0000* 
704C 

00000000* 

00000800 
0000* 
15F6 
0000+ 


OO3A 
0030 
15F6 


1fcdeo-19R4 01:06:99 


U.38 LONG 
002C2 FEASRASK NG 
002C6 TBAB tanGE 

U.385: ORD 
002c8 ; TPASTYPE 

U.386: .WORD 
OO2CA ; TPASADDR 

387: LONG 
002CE tea MASK 

U. 88: .LONG 
00202 ; a TARGET 

U.389:  .WORD 
00204 pTgagt vee 

U.390: .WORD 
00206 ; TPASADDR 

U.391: .LONG 
002DA ; TPASMASK 

U.392: .LONG 
OO2DE ; TPASTARGET 

U.393:  .WORD 
002E0 ; TPASTYPE 

U.394: .WORD 
O002E2 ; TPASADDR 

U.395: .LONG 
002E6 ; TPASMASK 

U.396: .LONG 
O002EA pTeastancs! 

U.397:  .WORD 
OO2ZEC ; TPASTYPE 

U.398:  .WORD 
OO2ZEE ; TPASADDR 

U.399: .LONG 
O02F2 ; TPASMAS 

U.400: .LONG 
002F6 ; TPASTARGET 

U.401:  .WORD 
002F8 ; TPASTYPE 

U.402: .WORD 
OO2FA ; TPASADDR 

U.403: .LONG 
OO2FE ; TPASMASK 

U.404: .LONG 
00302 Arepgrance! 

U.405: .WOR 
00304 ; TPASTYPE 

U.406: .WORD 
00306 feape Aner! 

U.407: .WORD 
even qegne BLKB 
00308 ; TPASTYPE 

U.408: .WORD 
QO30A ; TPASTYPE 

U.409: .WORD 
0030C ; TPASTYPE 

0.410: .WORD 


<<PROTECTION-U.383>-4> 
256 

<<GRPRO=U. 385>-2> 
28759 

<<PROTECTION-U. 387>-4> 
512 

<<GRPRO-U. 389>-2> 
28741 
<<PROTECTION-U.391>=4> 
1024 

<<GRPRO-U. 393>-2> 
28752 
<<PROTECTION-U.395>=4> 
1024 

<<GRPRO-U.397>=2> 
28740 
<<PROTECTION-U.399>=4> 
2048 

<<GRPRO-U.401>-2> 
28748 
<<PROTECTION-U.403>=4> 
2048 

<<GRPRO-U.405>-2> 

5622 

<<U.320-U.407>-2> 

0 

58 
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-742 
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(24) 


=i] 


Bo Se Se Se Se Se Se Ss Se Se He SF Se Se Ge Se Ge Se FF Se Ge FF Ss Be Se Ge SF FF Se SF FF Os Se Se Se Se Se SF Se SESS SF SFOs Ss Ge Se Se Se See Se Ge Fe Bee ae 


vou~000" 


7052 
0000000* 
00001000 
0000* 
7057 
00000000* 
00002000 
0000* 
7045 
00000000* 
00004000 
0000* 
7050 
00000000* 
00004000 
0000* 
7044 
00000000* 
00008000 
0000* 
704¢ 
00000000* 
00008000 
0000* 
15F6 
0000* 


80810 


00312 ; 
00316 ; 
OO31A 
0031C 
OO31E 
00322 
00326 
00328 
0032A 
0032E 
00332 
00334 
00336 
0033A 
0033E 
00340 
00342 
00346 
0034A 
0034C 
0034E 
00352 
00356 
00358 
0035A 
0055¢ 5 


ifcdeoct9ge O1:06:¢9 yan 


0000* 0030€ A baa 3 


i=] > F> Oo =< 
n zon gS 
Kk a © 
° 3 ° 
2 2 
eo a 


> ir | 

< 
so uv 
ze mM 


ADDR 


AP AP AF UPS MP MPMPMPMPWw>y> 


WAT =O 
ee oo axfec 
ce 
vo 
=" 
D 
J 


wn 


0: .BLKB 


{U.see-U 411 


28754 


Shc 


>-2> 


s-32 V4.0-742 
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<<PROTECTION-“U.413>=4> 


4096 


<<WOPRO-U.415>-2> 


28759 


<<PROTECTION“U.417>-4> 


8192 


<<WOPRO-U.419>=2> 


28741 


<<PROTECTION“U.421>-4> 


16384 


<<WOPRO-U.423>-2> 


28752 


<<PROTECTION-U.425>=-4> 


16384 


<<WOPRO-U.427>-2> 


28740 


<<PROTECTION-U.429>=4> 


32768 


<<WOPRO-U.431>-2> 


28748 


<<PROTECTION-“U.433>-4> 


32768 


<<WOPRO-U.435>-2> 


5622 


<<U.320-U.437>-2> 


0 


Se Se Se Se Se Ge Be Se Ss Se Se Se Se Se Se Se Se Se Fe Se Ge Ge Ge Fe Ge Ge SF Se Fe Gee Se Se Se Se Sse Se Se See SeSe Se Se Se VeVe Se Se Fees Fe Sees ee Seas 


vou-000 


11 
1B-Sen-1984 1:06:29 YANeNt BLisg=32_v4.0-742, 


102¢ 0035¢ 5 TPA TYPE 
0.438: WORD 
0000* 0035€ iP TARGET 
15F7 00360 ; TPASTYPE 
U. : WORD 
FFFF 00362 ; TPASTARGET 
b. WORD 


441: 
»PSECT 
00000 sate 
00000 ; TPASKEYO 
ot? -BLKB 
0000* 00000 ; TPASKEY 
ow WORD 
0000* 00002 ; TPASKEY 
: WORD 
0000* 00004 ; 
0000* 00006 ; 
0000* 00008 
0000* O000A 
0000+ 0000C¢ 
0000* 0000E 
0000* 00010 
00017 


ce ce-c 


° 
—de 
ad 
x 
m 
< 


SKEY 


ee Cee Cee Cee Cee Ce 
oe —je =<—f0e —<j0e «<0 =<§0 —fe 
tf Hoe Por Pee 
x KR KR K 
mmm 
<< 


WUL Vf UWwUWw UN 0 0— 
Sad 
x 
m 
~< 


MPSNPUPSNPS—-PuiyPor— 


: WORD 


“BLKB 
0014 DATACHECK_KTB:: 


00014 ; TPASKEYO 
0000* 00014 
0000* 00016 
00018 


0060+ 00018 
0000* OO01A 
0001C 
OO01C ; 
0000+ 0001C 
0000* O001E 


4140 

<<NEXTPRO=U.439>-2> 

5623 

-1 

_LIBSKEYOS,NOWRT, SHR, PIC,1 


0 
<U.2°U.1> 
<U.10-U.1> 
<U.18-U.1> 
<U.24-U.1> 
<U.30-U.1> 
<U.36-U.1> 
<U.42-U.1> 
<U.46-U.1> 
<U.54-U.1> 
2 


0 
0 
<U.91-U.85> 


<U.97-U.85> 


<U.109-U.108> 
<U.115-U.108> 
0 
0 
<U.127-U.126> 


$3 


HEcdeoct9Rs 01:06:89 yatett BL igse32_v4-0-742 Page 88 
U.134: .WORD <U.133-U.126> : 


—— sipase “ni WORD <U.138-U.126> 
0000* 00022 ; sik Key" ‘ , 
eWORD <U.144-U.126> 


0000* 00024 “ih KEY" 
<U.150-U.126> 


spam sith KEY ap RD <U.156-U.126> 

00028 OVERRIDE_KTB:: 

00028 a : 
<U.190-U.189> 
<U.196-U. 189> 
<U.202-U.189> 
<U.208-U.189> 
<U.214-U.189> 
<U.220-U.189> 
0 
0 
0 
res sifagcer"onee a 237-U.236> 

<U.244-U.236> 


j. BLK 
00034 PROCESSOR KTB:: 
00034 ; TPASKEYO 


00036 ; TPASKEY 

b. : WORD 
00038 PROTECTION Berets 
00038 ; ae 
00038 toa a. 


-BLKB 0 
<U.284-U.283> 
<U.292-U.283> 
<U.300-U.283> 
<U.308-U.283> 


-EXTRN LIBSSTOP 
PSECT SUMMARY 
Bytes Attributes 


Rect fh:tht 
AOE st 


Library Statistics 


“== Symbols 9 Processing 
Total Loaded Percent Mapped Time 


18619 10 100 0:02.0 
43 3 f' 2 08:98 


COMMAND GUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:MOUNTIMG/OBJ=OBJ$:MOUNTIMG MSRC$:MOUNT IMG/UPDATE=(ENHS$: MOUNT IMG) 
RE + 2241 data bytes 


; Elapsed Ti me: 
; Lines/CPU Min ai 

; Lexemes/CPU-M “Min: 6 

: ts Used: 502 pages 
; Compilation Complete 


ee 


AH-BT13A-SE 
VAX/VMS V4.0 


EQUIPMENT CORPORA 
NTIAL AND PROPRIE 


DIGITAL TIO 
CONFIDE TARY 


